Branch Coverage

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]+$/)