| line |
true |
false |
branch |
|
13
|
1 |
1 |
if (@_) { } |
|
16
|
0 |
1 |
if $@ |
|
32
|
23 |
32 |
if (@args == 3) { } |
|
|
24 |
8 |
elsif (@args == 2) { } |
|
|
7 |
1 |
elsif (@args == 1) { } |
|
51
|
1 |
22 |
if ($ymd[0] <= 1872) |
|
60
|
21 |
48 |
if (Date::Calc::Delta_Days(@{$data;}[1..3], @ymd) >= 0 and Date::Calc::Delta_Days(@ymd, @{$data;}[4..6]) >= 0) |
|
74
|
9 |
22 |
if ($era =~ /^[a-zA-Z]+$/) |
|
78
|
0 |
30 |
unless (utf8::is_utf8($era)) |
|
82
|
1 |
29 |
unless my $data = $ERA_TABLE{$era} |
|
86
|
1 |
28 |
if ($g_year > $data->[4]) |
|
98
|
0 |
7 |
unless (utf8::is_utf8($str)) |
|
104
|
0 |
7 |
unless $str =~ s/^($gengou_re)// |
|
112
|
0 |
7 |
unless (defined $year) |
|
122
|
1 |
6 |
if $str eq "\x{5143}" |
|
125
|
5 |
2 |
if ($str =~ /^\d+$/) { } |
|
129
|
0 |
2 |
if ($@) |