| line |
true |
false |
branch |
|
47
|
0 |
0 |
if (/^($month_re)/u) { } |
|
|
0 |
0 |
elsif (m[
^
(? (?: [A-Z] | \p{Han}+ ) \d++ ) [-./\x{5e74}]?
(?: (? \d++ ) [-./\x{6708}]?
(?: (? \d++ ) [\x{65e5}]? )?
)?
$
]iux) { } |
|
63
|
0 |
0 |
unless (my $era = eval {
do {
"Date::Japanese::Era"->new($era_str)
}
}) |
|
68
|
0 |
0 |
if ($m{'D'}) { } |
|
76
|
0 |
0 |
if s[[-./]*(\d+)\x{65e5}?$][]u |
|
77
|
0 |
0 |
if s[[-./]*(\d+)\x{6708}?$][]u |
|
78
|
0 |
0 |
if s/(?:\x{897f}\x{66a6})?(\d+)\x{5e74}?$//u |
|
79
|
0 |
0 |
if (defined $mday and $mday > 31) |
|
84
|
0 |
0 |
if (length $_) |
|
108
|
0 |
0 |
utf8::is_utf8($_) ? : |
|
120
|
0 |
0 |
unless my $hash = $opt{'for'} |
|
122
|
0 |
0 |
ref $with eq 'ARRAY' ? : |