File Coverage

blib/lib/HTML/FormHandler/Field/MonthName.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 13 14 92.8


line stmt bran cond sub pod time code
1             package HTML::FormHandler::Field::MonthName;
2             # ABSTRACT: select list with month names
3             $HTML::FormHandler::Field::MonthName::VERSION = '0.40067';
4 1     1   1018 use Moose;
  1         2  
  1         8  
5             extends 'HTML::FormHandler::Field::Select';
6              
7             sub build_options {
8 1     1 0 2 my $i = 1;
9 1         5 my @months = qw/
10             January
11             February
12             March
13             April
14             May
15             June
16             July
17             August
18             September
19             October
20             November
21             December
22             /;
23 1         3 return [ map { { value => $i++, label => $_ } } @months ];
  12         47  
24             }
25              
26              
27             __PACKAGE__->meta->make_immutable;
28 1     1   4754 use namespace::autoclean;
  1         2  
  1         10  
29             1;
30              
31             __END__
32              
33             =pod
34              
35             =encoding UTF-8
36              
37             =head1 NAME
38              
39             HTML::FormHandler::Field::MonthName - select list with month names
40              
41             =head1 VERSION
42              
43             version 0.40067
44              
45             =head1 DESCRIPTION
46              
47             Generates a list of English month names.
48              
49             =head1 AUTHOR
50              
51             FormHandler Contributors - see HTML::FormHandler
52              
53             =head1 COPYRIGHT AND LICENSE
54              
55             This software is copyright (c) 2016 by Gerda Shank.
56              
57             This is free software; you can redistribute it and/or modify it under
58             the same terms as the Perl 5 programming language system itself.
59              
60             =cut