diff options
author | edenc <edenc@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-03-14 17:54:22 +0000 |
---|---|---|
committer | edenc <edenc@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-03-14 17:54:22 +0000 |
commit | 7893faa878977199e71b3011627dcb49d88ed555 (patch) | |
tree | 0bb7523ce356c21ba6950728834aca278664be22 /lib/Reaction/Types | |
parent | 7c29dd38a5e43d6395a9d94c4667a66a9a499e8b (diff) | |
download | reaction-7893faa878977199e71b3011627dcb49d88ed555.tar.gz reaction-7893faa878977199e71b3011627dcb49d88ed555.zip |
fixes for File fields
Diffstat (limited to 'lib/Reaction/Types')
-rw-r--r-- | lib/Reaction/Types/File.pm | 29 |
1 files changed, 11 insertions, 18 deletions
diff --git a/lib/Reaction/Types/File.pm b/lib/Reaction/Types/File.pm index 4b4efa8..95fd679 100644 --- a/lib/Reaction/Types/File.pm +++ b/lib/Reaction/Types/File.pm @@ -1,25 +1,18 @@ package Reaction::Types::File; -use MooseX::Types - -declare => [qw/File Upload/]; +use MooseX::Types -declare => [qw/File Upload/]; use MooseX::Types::Moose 'Object'; -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) }; - +use Path::Class::File; + +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 |