X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FReaction%2FTypes%2FFile.pm;h=95fd6798592964fd8dd69a7b2f363d3cfdbd331b;hb=588a35ac5c72d42a82ffff5514b4d6eebe0d0b8f;hp=4b4efa8cd1741514d21e9d95f7cc8dc7cced94e0;hpb=ddd1dc657e6cf50128e94c103411d758538c6f99;p=catagits%2FReaction.git

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