diff options
author | edenc <edenc@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-02-04 12:01:32 +0000 |
---|---|---|
committer | edenc <edenc@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-02-04 12:01:32 +0000 |
commit | 4ed8c1eb4cb0dde3b509ecdad5321d417f537ac6 (patch) | |
tree | df6b4065e3d7466a5746f9d3d1317b69e040dadc /lib/Reaction/Types | |
parent | 5332f07e273fb713585aaa49c16a68f621c8e078 (diff) | |
download | reaction-4ed8c1eb4cb0dde3b509ecdad5321d417f537ac6.tar.gz reaction-4ed8c1eb4cb0dde3b509ecdad5321d417f537ac6.zip |
added Field::File and Widget::Image
Diffstat (limited to 'lib/Reaction/Types')
-rw-r--r-- | lib/Reaction/Types/File.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/Reaction/Types/File.pm b/lib/Reaction/Types/File.pm index a3b762b..d12408c 100644 --- a/lib/Reaction/Types/File.pm +++ b/lib/Reaction/Types/File.pm @@ -8,9 +8,18 @@ use Catalyst::Request::Upload; subtype File => as Object + => where { $_->isa('Path::Class::File') } + => message { "Must be a file" }; + +subtype Upload + => as Object => where { $_->isa('Catalyst::Request::Upload') } => message { "Must be a file" }; +coerce File + => from Upload + => via { Path::Class::File->new($_->tempname) }; + 1; =head1 NAME |