| blib/lib/Mail/Message/Field/Date.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 20 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 31 | 0 | 0 | unless my($dn, $d, $mon, $y, $h, $min, $s, $z) = $string =~ / ^ \s* (?: ($dayname) \s* \, \s* )? ( 0?[1-9] | [12][0-9] | 3[01] ) \s* # day \s+ ( [A-Z][a-z][a-z]|[0-9][0-9] ) \s+ # month ( (?: 19 | 20 | ) [0-9][0-9] ) \s+ # year ( [0-1]?[0-9] | 2[0-3] ) \s* # hour [:.] ( [0-5][0-9] ) \s* # minute (?: [:.] ( [0-5][0-9] ) )? \s+ # second ( [+-][0-9]{4} | [A-Z]+ )? # zone \s* /x |
| 44 | 0 | 0 | unless defined $dn |
| 46 | 0 | 0 | if $mon =~ /[0-9]+/ |
| 48 | 0 | 0 | if $y < 50 |
| 49 | 0 | 0 | if $y < 100 |
| 52 | 0 | 0 | if $z =~ /[A-Z]/ |
| 55 | 0 | 0 | length $dn ? : |
| 84 | 0 | 0 | if (defined $oldtz) { } |
| 87 | 0 | 0 | $1 eq '-' ? : |
| 0 | 0 | if $z =~ /^([+-])(\d\d)(\d\d)$/ |