Branch Coverage

blib/lib/Lingua/JA/FindDates.pm
Criterion Covered Total %
branch 119 148 80.4


line true false branch
46 1 55 if ($knum eq "\x{5143}")
54 48 87 unless (defined $k)
59 1 86 unless (defined $val)
64 30 56 if ($val >= 10) { }
67 5 25 unless ($knext)
71 1 24 unless (defined $val_next)
78 2 22 if ($val_next > 10) { }
628 0 0 unless ($year or $month or $date or $jun)
633 10 36 if $wday
634 34 12 if ($month)
637 1 33 if ($jun)
641 29 17 if ($date) { }
14 3 elsif ($year) { }
642 29 0 if length $edate
644 1 28 if $date == 32
645 25 4 if ($year) { }
653 2 12 if (length $edate > 0)
675 9 8 if ($date2->{'month'})
676 0 9 unless ($date1->{'month'})
681 17 0 if ($date1->{'month'}) { }
682 6 11 if ($date1->{'wday'} and $date2->{'wday'}) { }
7 4 elsif ($date1->{'date'} and $date2->{'date'}) { }
683 0 6 unless ($date1->{'date'} and $date2->{'date'})
691 2 4 $date2->{'month'} ? :
2 4 $date2->{'month'} ? :
695 0 7 if ($date1->{'wday'} or $date2->{'wday'})
704 3 4 $date2->{'month'} ? :
707 0 4 if ($date1->{'date'} or $date2->{'date'})
711 0 4 unless ($date2->{'month'})
721 0 0 if ($date1->{'wday'} and $date2->{'wday'})
722 0 0 unless ($date1->{'date'} and $date2->{'date'})
730 16 1 if ($date1->{'year'})
731 12 4 $usecomma ? :
732 14 2 if (not $date2->{'year'} or $date2->{'year'} == $date1->{'year'}) { }
737 2 0 $usecomma ? :
754 49 9 unless ($c)
757 2 56 unless ($text)
764 0 1792 if ($verbose)
773 0 75 if ($verbose)
779 74 274 unless $arg
782 0 274 if ($verbose)
786 1 273 if ($argdo eq 'e1') { }
1 272 elsif ($argdo eq 'j1') { }
0 272 elsif ($argdo eq 'y1') { }
1 271 elsif ($argdo eq 'e2') { }
1 270 elsif ($argdo eq 'j2') { }
0 270 elsif ($argdo eq 'y2') { }
44 226 elsif ($argdo eq 'e') { }
43 183 elsif ($argdo eq 'j') { }
21 162 elsif ($argdo eq 'y') { }
2 160 elsif ($argdo eq 'n') { }
62 98 elsif ($argdo eq 'm' or $argdo eq 'm1') { }
53 45 elsif ($argdo eq 'd' or $argdo eq 'd1') { }
8 37 elsif ($argdo eq 'm2') { }
12 25 elsif ($argdo eq 'd2') { }
18 7 elsif ($argdo eq 'w' or $argdo eq 'w1') { }
5 2 elsif ($argdo eq 'w2') { }
1 1 elsif ($argdo eq 'z') { }
1 0 elsif ($argdo eq 'x') { }
839 0 1 if ($verbose)
847 16 59 if ($date2) { }
849 0 16 if ($c->{'make_date_interval'}) { }
859 13 46 if ($c->{'make_date'}) { }
866 0 75 if ($verbose)
870 13 62 if ($c->{'replace'})
897 6 0 if ($date->{'year'}) { }
936 4 0 if (defined $year)
954 2 6 if ($year > $eyear or $year == $eyear and not defined $month) { }
4 4 elsif ($year == $eyear and defined $month) { }
969 4 0 if (defined $date) { }
0 0 elsif ($month >= $emonth) { }
970 2 2 if ($month > $emonth or $month == $emonth and $date >= $eday)
984 4 4 if ($subs)
988 4 0 unless ($original =~ /$ename/)