| blib/lib/Form/Processor/Field/MonthDay.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::MonthDay; | ||||||
| 2 | $Form::Processor::Field::MonthDay::VERSION = '1.162360'; | ||||||
| 3 | 2 | 2 | 1083 | use strict; | |||
| 2 | 2 | ||||||
| 2 | 48 | ||||||
| 4 | 2 | 2 | 6 | use warnings; | |||
| 2 | 2 | ||||||
| 2 | 47 | ||||||
| 5 | 2 | 2 | 7 | use base 'Form::Processor::Field::IntRange'; | |||
| 2 | 2 | ||||||
| 2 | 430 | ||||||
| 6 | |||||||
| 7 | |||||||
| 8 | |||||||
| 9 | 1 | 1 | 0 | 7 | sub init_range_start {1} | ||
| 10 | 1 | 1 | 0 | 6 | sub init_range_end {31} | ||
| 11 | |||||||
| 12 | |||||||
| 13 | # ABSTRACT: Select list for a day number 1 to 31 | ||||||
| 14 | |||||||
| 15 | |||||||
| 16 | |||||||
| 17 | |||||||
| 18 | 1; | ||||||
| 19 | |||||||
| 20 | __END__ |