File Coverage

blib/lib/Form/Processor/Field/Year.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 16 18 88.8


line stmt bran cond sub pod time code
1             package Form::Processor::Field::Year;
2             $Form::Processor::Field::Year::VERSION = '1.162360';
3 2     2   1197 use strict;
  2         3  
  2         52  
4 2     2   7 use warnings;
  2         2  
  2         55  
5 2     2   9 use base 'Form::Processor::Field::IntRange';
  2         2  
  2         690  
6              
7              
8              
9             sub init_range_start {
10 1     1 0 93 return ( localtime )[5] + 1900 - 5;
11             }
12              
13             sub init_range_end {
14 1     1 0 16 return ( localtime )[5] + 1900 + 10;
15             }
16              
17              
18             # ABSTRACT: Select a recent year.
19              
20              
21              
22             1;
23              
24             __END__