lib/Reaction/Types/File.pm

   1 package Reaction::Types::File;
   2
   3 use MooseX::Types
   4     -declare => [qw/File/];
   5
   6 use MooseX::Types::Moose 'Object';
   7 use Catalyst::Request::Upload;
   8
   9 subtype 'File'
  10   => as 'Object'
  11   => where { $_->isa('Catalyst::Request::Upload') }
  12   => message { "Must be a file" };
  13
  14 1;
  15
  16 =head1 NAME
  17
  18 Reaction::Types::File
  19
  20 =head1 DESCRIPTION
  21
  22 =over
  23
  24 =item * File
  25
  26 =back
  27
  28 =head1 SEE ALSO
  29
  30 =over
  31
  32 =item * L<Reaction::Types::Core>
  33
  34 =back
  35
  36 =head1 AUTHORS
  37
  38 See L<Reaction::Class> for authors.
  39
  40 =head1 LICENSE
  41
  42 See L<Reaction::Class> for the license.
  43
  44 =cut