lib/Reaction/Types/File.pm

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