| blib/lib/Rose/HTML/Form/Field/Time.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 20 | 60.0 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 43 | 154 | if ($time =~ /^\s*(\d\d?)(?::(\d\d)(?::(\d\d))?)?\s*([ap]\.?m\.?)?\s*$/i) |
| 28 | 43 | 0 | if ($ampm) |
| 34 | 0 | 43 | unless ($ampm) |
| 36 | 0 | 0 | if ($hour >= 12) { } |
| 38 | 0 | 0 | if $hour > 12 |
| 55 | 0 | 7 | unless $ok |
| 59 | 2 | 5 | unless $time and $time =~ /\S/ |
| 61 | 2 | 3 | unless ($time =~ /^(\d\d):(\d\d):(\d\d) ([AP]M)$/) |
| 72 | 1 | 2 | if ($hour > 12 and $ampm) |
| 78 | 0 | 2 | if ($hour > 12 or $min > 59 or $sec > 59) |