Branch Coverage

blib/lib/XML/Loy/Date/RFC3339.pm
Criterion Covered Total %
branch 39 52 75.0


line true false branch
30 0 40 ref $_[0] ? :
46 1 45 unless defined $date
49 14 31 if ($date =~ /^[\d_]+$/ and $date > 5000) { }
31 0 elsif (my($year, $month, $mday, $hour, $min, $sec, $offset) = $date =~ /$RFC3339_RE/) { }
64 6 25 unless (defined $sec)
68 5 1 unless (defined $hour)
72 3 2 unless (defined $mday)
76 2 1 unless (defined $month)
96 0 31 if $@
99 3 28 if (uc $offset ne "Z" and my($os_dir, $os_hour, $os_min) = $offset =~ /$OFFSET_RE/)
104 3 0 if ($os_dir eq '-') { }
105 3 0 if $os_hour
106 2 1 if $os_min
111 0 0 if $os_hour
112 0 0 if $os_min
117 31 0 if ($epoch > 0)
118 31 0 if $self->epoch($epoch)
145 42 3 if $level < 4
146 40 5 if $level < 3
147 38 7 if $level < 2
148 36 9 if $level < 1
149 38 7 if $level < 2
160 59 45 unless @_
163 45 0 if ($_[0] and $_[0] =~ /^[_\d]+$/)
180 39 85 unless @_
183 85 0 if (defined $_[0] and grep {$_[0] == $_;} 0..4)