added Field::File and Widget::Image

[catagits/Reaction.git] / lib / Reaction / Types / File.pm

diff --git a/lib/Reaction/Types/File.pm b/lib/Reaction/Types/File.pm
index a3b762b..d12408c 100644 (file)
--- 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