Branch Coverage

blib/lib/Date/Simple.pm
Criterion Covered Total %
branch 22 38 57.8


line true false branch
60 6 0 if ($#_ == 0) { }
66 0 0 if (ref $_[0] eq 'SCALAR') { }
76 1 0 if ($#_ == -1) { }
87 33 0 if ($#_ == 2) { }
93 0 0 if (ref $_[0] eq 'SCALAR') { }
124 28 38 if (@ymd == 1)
126 2 26 if (ref $x and &reftype($x) eq 'ARRAY') { }
0 26 elsif (UNIVERSAL::isa($x, 'Date::Simple')) { }
24 2 elsif ($x =~ /^(\d\d\d\d)-(\d\d)-(\d\d)$/ or $x =~ /^(\d\d\d\d)(\d\d)(\d\d)$/) { }
142 4 60 unless @ymd
146 60 0 if (@ymd == 3)
148 18 42 unless defined $days
160 0 0 if $obj
174 0 55 if (not $date and scalar @_ == 1)
204 10 22 if @_ == 1
208 0 32 unless defined $format
222 23 20 if (@_ > 1)
224 0 0 defined $val ? :
0 23 unless ref $self