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

package Reaction::Types::File;

use Moose::Util::TypeConstraints;

use Catalyst::Request::Upload;

subtype 'File'
  => as 'Object'
  => where { $_->isa('Catalyst::Request::Upload') }
  => message { "Must be a file" };

1;

=head1 NAME

Reaction::Types::File

=head1 DESCRIPTION

=over 

=item * File

=back

=head1 SEE ALSO

=over 

=item * L<Reaction::Types::Core>

=back

=head1 AUTHORS

See L<Reaction::Class> for authors.

=head1 LICENSE

See L<Reaction::Class> for the license.

=cut
Commit	Line	Data
7adfd53f	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