| blib/lib/XML/Loy/Date/RFC822.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 28 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 10 | 1 | ref $_[0] ? : |
| 40 | 0 | 11 | unless defined $date |
| 42 | 0 | 11 | if ($date =~ /^\d+$/) { } |
| 11 | 0 | elsif (my($mday, $month, $year, $hour, $min, $sec, $zone_1, $zone_2, $zone_o) = $date =~ /$RFC822_RE/x) { } | |
| 57 | 5 | 6 | if ($zone_1) { } |
| 3 | 6 | elsif ($zone_o and $zone_o =~ /^([-+])\s*(\d\d)(\d\d)$/) { } | |
| 59 | 2 | 3 | if $zone_2 eq "S" |
| 62 | 0 | 3 | if ($1 eq '-') { } |
| 77 | 7 | 4 | if $offset |
| 78 | 1 | 10 | if $offset_min |
| 80 | 11 | 0 | if (not $@ and $epoch > 0) |
| 93 | 0 | 5 | unless defined $epoch |
| 116 | 11 | 11 | unless @_ |
| 119 | 11 | 0 | if ($_[0] and $_[0] =~ /^[_\d]+$/) |