File Coverage

blib/lib/HTML/Shakan/Field/File.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 20 21 95.2


line stmt bran cond sub pod time code
1             package HTML::Shakan::Field::File;
2 23     23   128 use strict;
  23         48  
  23         532  
3 23     23   102 use warnings;
  23         41  
  23         483  
4 23     23   103 use Mouse;
  23         45  
  23         107  
5             extends 'HTML::Shakan::Field::Input';
6              
7             has '+type' => (
8             default => 'file',
9             );
10              
11             sub field_filter {
12 5     5 0 12 my ($self, $form, $params) = @_;
13 5         44 $form->uploads->{$self->name} = FormValidator::Lite::Upload->new(
14             $form->request, $self->name,
15             );
16 5         1881 $params;
17             }
18              
19 23     23   8579 no Mouse;
  23         110  
  23         95  
20             __PACKAGE__->meta->make_immutable;
21             __END__
22              
23             =head1 NAME
24              
25             HTML::Shakan::Field::File - file upload field
26              
27             =head1 DESCRIPTION
28              
29             file upload field
30              
31             =head1 AUTHOR
32              
33             Tokuhiro Matsuno
34              
35             =head1 SEE ALSO
36              
37             L<HTML::Shakan>