File Coverage

blib/lib/HTML/FormFu/Constraint/File/MaxSize.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 11 11 100.0


line stmt bran cond sub pod time code
1 2     2   896 use strict;
  2         10  
  2         155  
2              
3             package HTML::FormFu::Constraint::File::MaxSize;
4             $HTML::FormFu::Constraint::File::MaxSize::VERSION = '2.07';
5             # ABSTRACT: Maximum File Size Constraint
6              
7 2     2   21 use Moose;
  2         9  
  2         22  
8             extends 'HTML::FormFu::Constraint::File::Size';
9              
10             sub _localize_args {
11 1     1   11 my ($self) = @_;
12              
13 1         9 return $self->max;
14             }
15              
16             __PACKAGE__->meta->make_immutable;
17              
18             1;
19              
20             __END__
21              
22             =pod
23              
24             =encoding UTF-8
25              
26             =head1 NAME
27              
28             HTML::FormFu::Constraint::File::MaxSize - Maximum File Size Constraint
29              
30             =head1 VERSION
31              
32             version 2.07
33              
34             =head1 DESCRIPTION
35              
36             Ensure that an uploaded file meets maximum size constraints.
37              
38             Overrides L<HTML::FormFu::Constraint/localize_args>, so that the value of
39             L</maximum> is passed as an argument to L<localize|HTML::FormFu/localize>.
40              
41             This constraint doesn't honour the C<not()> value.
42              
43             =head1 METHODS
44              
45             =head2 maximum
46              
47             =head2 max
48              
49             The maximum file size in bytes.
50              
51             L</max> is an alias for L</maximum>.
52              
53             =head1 SEE ALSO
54              
55             Is a sub-class of, and inherits methods from
56             L<HTML::FormFu::Constraint::File::Size>, L<HTML::FormFu::Constraint>
57              
58             L<HTML::FormFu>
59              
60             =head1 AUTHOR
61              
62             Carl Franks C<cfranks@cpan.org>
63              
64             =head1 LICENSE
65              
66             This library is free software, you can redistribute it and/or modify it under
67             the same terms as Perl itself.
68              
69             =head1 AUTHOR
70              
71             Carl Franks <cpan@fireartist.com>
72              
73             =head1 COPYRIGHT AND LICENSE
74              
75             This software is copyright (c) 2018 by Carl Franks.
76              
77             This is free software; you can redistribute it and/or modify it under
78             the same terms as the Perl 5 programming language system itself.
79              
80             =cut