| line |
true |
false |
branch |
|
13
|
1 |
1 |
if (@_) { } |
|
16
|
0 |
1 |
if $@ |
|
32
|
20 |
29 |
if (@args == 3) { } |
|
|
22 |
7 |
elsif (@args == 2) { } |
|
|
6 |
1 |
elsif (@args == 1) { } |
|
51
|
1 |
19 |
if ($ymd[0] <= 1872) |
|
61
|
18 |
30 |
if (Delta_Days(@{$data;}[1..3], @ymd) >= 0 and Delta_Days(@ymd, @{$data;}[4..6]) >= 0) |
|
75
|
9 |
19 |
if ($era =~ /^[a-zA-Z]+$/) |
|
79
|
0 |
27 |
unless (utf8::is_utf8($era)) |
|
83
|
1 |
26 |
unless my $data = $Date::Japanese::Era::ERA_TABLE{$era} |
|
87
|
1 |
25 |
if ($g_year > $$data[4]) |
|
99
|
0 |
6 |
unless (utf8::is_utf8($str)) |
|
105
|
0 |
6 |
unless $str =~ s/^($gengou_re)// |
|
113
|
0 |
6 |
unless (defined $year) |
|
125
|
4 |
2 |
if ($str =~ /^\d+$/) { } |
|
129
|
0 |
2 |
if ($@) |