line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Form::Processor::Field::Minute; |
2
|
|
|
|
|
|
|
$Form::Processor::Field::Minute::VERSION = '1.162360'; |
3
|
4
|
|
|
4
|
|
899
|
use strict; |
|
4
|
|
|
|
|
6
|
|
|
4
|
|
|
|
|
101
|
|
4
|
4
|
|
|
4
|
|
14
|
use warnings; |
|
4
|
|
|
|
|
4
|
|
|
4
|
|
|
|
|
92
|
|
5
|
4
|
|
|
4
|
|
12
|
use base 'Form::Processor::Field::IntRange'; |
|
4
|
|
|
|
|
4
|
|
|
4
|
|
|
|
|
1435
|
|
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
|
8
|
1
|
|
|
1
|
0
|
6
|
sub init_range_start {0} |
9
|
1
|
|
|
1
|
0
|
5
|
sub init_range_end {59} |
10
|
3
|
|
|
3
|
0
|
23
|
sub init_label_format {'%02d'} # How the base class will format the options |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
# ABSTRACT: input range from 0 to 60 |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
1; |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
__END__ |