| blib/lib/CGI/Untaint/datetime.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 8 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 14 | 2 | 3 | if length $val == 16 |
| 15 | 5 | 0 | if length $val == 19 |
| 16 | 5 | 0 | unless eval { do { return unless $date = 'Time::Piece'->strptime($val, '%FT%H:%M:%S') } } |
| 17 | 0 | 0 | unless $date = 'Time::Piece'->strptime($val, '%FT%H:%M:%S') |