repo.or.cz
/
blog.pm-common-perl-mods.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Special photo column that creates jpg files with uuid names.
[blog.pm-common-perl-mods.git]
/
Rose-DBx-Object-Metadata-Column-Photo
/
t
/
lib
/
Metadata.pm
blob
9bc0b4107b207d729fa63c41f652623989360687
1
package
Metadata
;
2
3
use
strict
;
4
use
warnings
;
5
6
use
base
'Rose::DB::Object::Metadata'
;
7
8
__PACKAGE__
->
column_type_class
(
9
photo
=>
'Rose::DBx::Object::Metadata::Column::Photo'
10
);
11
12
1
;