| blib/lib/Mail/Message/Field/Date.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 20 | 35.0 |
| line | true | false | branch |
|---|---|---|---|
| 38 | 0 | 5 | unless my($dn, $d, $mon, $y, $h, $min, $s, $z) = $string =~ / ^ \s* (?: ($dayname) \s* \, \s* )? # dayname (optional) ( 0?[1-9] | [12][0-9] | 3[01] ) \s+ # day ( [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 (optional) ( [+-][0-9]{4} | [A-Z]+ )? # zone # optionally followed by trash /x |
| 53 | 0 | 5 | if $mon =~ /[0-9]+/ |
| 55 | 0 | 5 | if $y < 50 |
| 56 | 0 | 5 | if $y < 100 |
| 59 | 0 | 5 | if $z =~ /[A-Z]/ |
| 61 | 4 | 1 | length $dn ? : |
| 81 | 0 | 0 | unless my $date = (shift())->date |
| 90 | 0 | 0 | if (defined $oldtz) { } |
| 93 | 0 | 0 | $1 eq '-' ? : |
| 0 | 0 | if $z =~ /^([+-])(\d\d)(\d\d)$/ |