Branch Coverage

blib/lib/Lingua/JA/FindDates.pm
Criterion Covered Total %
branch 115 148 77.7


line true false branch
45 1 50 if $knum eq "\x{5143}"
51 45 75 unless defined $k
54 0 75 unless (defined $val)
59 25 50 if ($val >= 10) { }
62 4 21 unless ($knext)
66 1 20 unless (defined $val_next)
70 0 20 if ($val_next > 10) { }
610 0 0 unless ($year or $month or $date or $jun)
615 10 36 if $wday
616 34 12 if ($month)
619 1 33 if ($jun)
623 29 17 if ($date) { }
14 3 elsif ($year) { }
624 29 0 if length $edate
626 1 28 if $date == 32
627 25 4 if ($year) { }
635 2 12 if (length $edate > 0)
657 9 8 if ($date2->{'month'})
658 0 9 unless ($date1->{'month'})
663 17 0 if ($date1->{'month'}) { }
664 6 11 if ($date1->{'wday'} and $date2->{'wday'}) { }
7 4 elsif ($date1->{'date'} and $date2->{'date'}) { }
665 0 6 unless ($date1->{'date'} and $date2->{'date'})
673 2 4 $date2->{'month'} ? :
2 4 $date2->{'month'} ? :
677 0 7 if ($date1->{'wday'} or $date2->{'wday'})
686 3 4 $date2->{'month'} ? :
689 0 4 if ($date1->{'date'} or $date2->{'date'})
693 0 4 unless ($date2->{'month'})
703 0 0 if ($date1->{'wday'} and $date2->{'wday'})
704 0 0 unless ($date1->{'date'} and $date2->{'date'})
712 16 1 if ($date1->{'year'})
713 12 4 $usecomma ? :
714 14 2 if (not $date2->{'year'} or $date2->{'year'} == $date1->{'year'}) { }
719 2 0 $usecomma ? :
736 47 7 unless ($c)
739 0 54 unless ($text)
746 0 1728 if ($verbose)
755 0 71 if ($verbose)
761 70 261 unless $arg
764 0 261 if ($verbose)
768 1 260 if ($argdo eq 'e1') { }
1 259 elsif ($argdo eq 'j1') { }
0 259 elsif ($argdo eq 'y1') { }
1 258 elsif ($argdo eq 'e2') { }
1 257 elsif ($argdo eq 'j2') { }
0 257 elsif ($argdo eq 'y2') { }
43 214 elsif ($argdo eq 'e') { }
42 172 elsif ($argdo eq 'j') { }
18 154 elsif ($argdo eq 'y') { }
2 152 elsif ($argdo eq 'n') { }
58 94 elsif ($argdo eq 'm' or $argdo eq 'm1') { }
49 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') { }
821 0 1 if ($verbose)
829 16 55 if ($date2) { }
831 0 16 if ($c->{'make_date_interval'}) { }
841 9 46 if ($c->{'make_date'}) { }
848 0 71 if ($verbose)
852 13 58 if ($c->{'replace'})
879 4 0 if ($date->{'year'}) { }
917 2 0 if (defined $year)
935 1 2 if ($year > $eyear or $year == $eyear and not defined $month) { }
2 0 elsif ($year == $eyear and defined $month) { }
950 2 0 if (defined $date) { }
0 0 elsif ($month >= $emonth) { }
951 1 1 if ($month > $emonth or $month == $emonth and $date >= $eday)
965 2 1 if ($subs)
969 2 0 unless ($original =~ /$ename/)