File Coverage

blib/lib/Form/Processor/Field/MonthName.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	17	18	94.4

package Form::Processor::Field::MonthName;
$Form::Processor::Field::MonthName::VERSION = '1.162360';
use strict;
use warnings;
use base 'Form::Processor::Field::Select';



sub init_options {
    my $i      = 1;
    my @months = qw/
        January
        February
        March
        April
        May
        June
        July
        August
        September
        October
        November
        December
        /;
    return [
        map {
            { value => $i++, label => $_ }
            } @months
    ];
}


# ABSTRACT: Select list for month names




1;

__END__