1 package Reaction::Types::File;
3 use MooseX::Types -declare => [qw/File Upload/];
5 use MooseX::Types::Moose 'Object';
8 subtype File, as Object, where { $_->isa('Path::Class::File') },
9 message { "Must be a file" };
11 subtype Upload, as Object, where { $_->isa('Catalyst::Request::Upload') },
12 message { "Must be a file" };
14 coerce File, from Upload, via { Path::Class::File->new( $_->tempname ) };
34 =item * L<Reaction::Types::Core>
40 See L<Reaction::Class> for authors.
44 See L<Reaction::Class> for the license.