| line |
true |
false |
branch |
|
416
|
0 |
85 |
if @_ % 2
|
|
424
|
0 |
85 |
if (exists $p->{'hankaku'} and not exists $p->{'zenkaku'})
|
|
434
|
0 |
0 |
if (@_)
|
|
436
|
0 |
0 |
ref $_ eq 'CODE' ? :
|
|
437
|
0 |
0 |
if warnings::enabled()
|
|
440
|
0 |
0 |
ref $self ? :
|
|
448
|
0 |
83 |
if not ref $dt or ref $dt and not $dt->isa("DateTime")
|
|
449
|
83 |
0 |
length $self->{'pattern'} ? :
|
|
456
|
3 |
45 |
if ref $_[0] eq "HASH"
|
|
457
|
45 |
3 |
unless exists $opts->{'simple_kanji'}
|
|
460
|
20 |
28 |
if ($self->{'zenkaku'}) { }
|
|
|
8 |
20 |
elsif ($self->{'kanji_number'}) { }
|
|
466
|
1 |
7 |
if ($opts->{'simple_kanji'}) { }
|
|
481
|
3 |
6 |
if ref $_[0] eq "HASH"
|
|
482
|
6 |
3 |
unless exists $opts->{'simple_kanji'}
|
|
485
|
4 |
5 |
if ($self->{'zenkaku'}) { }
|
|
|
1 |
4 |
elsif ($self->{'kanji_number'}) { }
|
|
491
|
1 |
0 |
if ($opts->{'simple_kanji'}) { }
|
|
505
|
0 |
0 |
$self->{'traditional'} || $self->{'zenkaku'} || $self->{'kanji_number'} ? :
|
|
543
|
12 |
18 |
if ($self->{'zenkaku'}) { }
|
|
|
6 |
12 |
elsif ($self->{'kanji_number'}) { }
|
|
552
|
3 |
2 |
if ($self->{'traditional'} or $self->{'kanji_number'}) { }
|
|
557
|
3 |
0 |
$dt->hour > 12 ? :
|
|
561
|
1 |
1 |
$self->{'zenkaku'} ? :
|
|
562
|
2 |
0 |
$dt->hour > 12 ? :
|
|
581
|
3 |
6 |
if ($self->{'zenkaku'}) { }
|
|
|
3 |
3 |
elsif ($self->{'kanji_number'}) { }
|
|
609
|
2 |
4 |
if ($self->{'zenkaku'}) { }
|
|
|
2 |
2 |
elsif ($self->{'kanji_number'}) { }
|
|
619
|
1 |
2 |
if ($self->{'zenkaku'}) { }
|
|
|
1 |
1 |
elsif ($self->{'kanji_number'}) { }
|
|
635
|
3 |
2 |
$self->{'traditional'} || $self->{'kanji_number'} ? :
|
|
643
|
3 |
2 |
$self->{'traditional'} || $self->{'kanji_number'} ? :
|
|
647
|
2 |
0 |
$dt->hour > 12 ? :
|
|
649
|
2 |
0 |
$dt->hour > 12 ? :
|
|
|
1 |
1 |
$self->{'zenkaku'} ? :
|
|
|
1 |
1 |
$self->{'zenkaku'} ? :
|
|
651
|
1 |
1 |
$self->{'zenkaku'} ? :
|
|
653
|
1 |
1 |
$self->{'zenkaku'} ? :
|
|
655
|
3 |
2 |
$self->{'traditional'} || $self->{'kanji_number'} ? :
|
|
659
|
1 |
1 |
$self->{'zenkaku'} ? :
|
|
|
1 |
1 |
$self->{'zenkaku'} ? :
|
|
683
|
3 |
6 |
if ($self->{'zenkaku'}) { }
|
|
|
3 |
3 |
elsif ($self->{'kanji_number'}) { }
|
|
706
|
4 |
0 |
$dt->hour > 12 ? :
|
|
708
|
2 |
2 |
if ($self->{'traditional'} or $self->{'kanji_number'}) { }
|
|
|
1 |
1 |
elsif ($self->{'zenkaku'}) { }
|
|
722
|
3 |
9 |
if ($self->{'zenkaku'}) { }
|
|
|
3 |
6 |
elsif ($self->{'kanji_number'}) { }
|
|
732
|
2 |
2 |
if ($self->{'traditional'} or $self->{'kanji_number'}) { }
|
|
746
|
1 |
2 |
if ($self->{'zenkaku'}) { }
|
|
|
1 |
1 |
elsif ($self->{'kanji_number'}) { }
|
|
762
|
1 |
1 |
if ($self->{'zenkaku'} or $self->{'traditional'} or $self->{'kanji_number'})
|
|
764
|
2 |
0 |
if (substr($rv, 0, 1) eq '+') { }
|
|
|
0 |
0 |
elsif (substr($rv, 0, 1) eq '-') { }
|
|
787
|
0 |
83 |
unless exists $map->{$token}
|
|
798
|
0 |
0 |
if ($code) { }
|
|
804
|
0 |
0 |
if warnings::enabled()
|
|
809
|
0 |
83 |
if (index($pat, "%") != -1)
|
|
824
|
0 |
116 |
unless defined $num and length $num
|
|
827
|
10 |
106 |
if ($num =~ s/^[[:blank:]\h]*([\x{3007}\x{4e00}\x{4e8c}\x{4e09}\x{56db}\x{4e94}\x{516d}\x{4e03}\x{516b}\x{4e5d}])\x{5343}//)
|
|
832
|
0 |
116 |
if (length $num and $num =~ s/^([\x{3007}\x{4e00}\x{4e8c}\x{4e09}\x{56db}\x{4e94}\x{516d}\x{4e03}\x{516b}\x{4e5d}])\x{767e}//)
|
|
837
|
15 |
101 |
if (length $num and $num =~ s/^([\x{3007}\x{4e00}\x{4e8c}\x{4e09}\x{56db}\x{4e94}\x{516d}\x{4e03}\x{516b}\x{4e5d}])\x{5341}//)
|
|
842
|
101 |
15 |
if (length $num)
|
|
857
|
44 |
10604 |
if ($ref->{'name'} eq $name)
|
|
871
|
0 |
15 |
if not ref $dt or ref $dt and not $dt->isa("DateTime")
|
|
877
|
3615 |
15 |
if scalar @{$def->{'end'};} and $y > $def->{'end'}[0]
|
|
878
|
0 |
15 |
if (scalar @{$def->{'start'};} and scalar @{$def->{'end'};} and $y >= $def->{'start'}[0] and $y <= $def->{'end'}[0] and $m >= $def->{'start'}[1] and $m <= $def->{'end'}[1] and $d >= $def->{'start'}[2] and $d < $def->{'end'}[2]) { }
|
|
|
15 |
0 |
elsif (scalar @{$def->{'start'};} and not scalar @{$def->{'end'};} and $y >= $def->{'start'}[0] and $m >= $def->{'start'}[1] and $d >= $def->{'start'}[2]) { }
|
|
909
|
0 |
78 |
if ref $opts ne "HASH"
|
|
912
|
0 |
234 |
unless length $opts->{$_}
|
|
914
|
15 |
63 |
if (length $opts->{'ampm'} and $opts->{'ampm'} eq "\x{5348}\x{5f8c}")
|
|
924
|
44 |
34 |
if ($opts->{'era'} and ref $opts->{'era'}) { }
|
|
928
|
44 |
0 |
if $opts->{'year'} > 1
|
|
940
|
0 |
34 |
if (length $opts->{'time_zone'}) { }
|
|
|
0 |
34 |
elsif (length $self->{'time_zone'}) { }
|
|
951
|
66 |
12 |
if $opts->{'hour'}
|
|
952
|
47 |
31 |
if $opts->{'minute'}
|
|
953
|
15 |
63 |
if $opts->{'second'}
|
|
956
|
0 |
78 |
if ($@)
|
|
967
|
0 |
0 |
if $self->{'debug'} < int($level // 0)
|
|
968
|
0 |
0 |
ref $_ eq 'CODE' ? :
|
|
979
|
53 |
25 |
if ($str =~ /$DateTime::Format::JP::DATETIME_PATTERN_1_RE/x) { }
|
|
|
0 |
25 |
elsif ($str =~ /$DateTime::Format::JP::DATETIME_PATTERN_2_RE/x) { }
|
|
|
25 |
0 |
elsif ($str =~ /$DateTime::Format::JP::DATETIME_PATTERN_3_RE/x) { }
|
|
982
|
29 |
24 |
if ($re->{'era'}) { }
|
|
994
|
109 |
50 |
if $re->{$_} =~ /^[0-9]+$/
|
|
997
|
0 |
50 |
unless defined $rv
|
|
1002
|
127 |
32 |
if not length $re->{$_} or $re->{$_} =~ /^[0-9]+$/
|
|
1005
|
0 |
32 |
unless defined $rv
|
|
1015
|
0 |
0 |
if ($re->{'era'}) { }
|
|
1032
|
15 |
10 |
if ($re->{'era'}) { }
|
|
1046
|
0 |
75 |
unless defined $rv
|
|
1051
|
34 |
41 |
unless length $re->{$_}
|
|
1054
|
0 |
41 |
unless defined $rv
|
|
1069
|
0 |
40 |
unless defined $num and length $num
|
|
1073
|
6 |
34 |
if ($num =~ s/^(\d)(\d{3})$/$2/)
|
|
1075
|
5 |
1 |
$1 > 1 ? :
|
|
1079
|
39 |
1 |
unless (not length $num or $num =~ /^0+$/)
|
|
1081
|
7 |
32 |
if ($num =~ s/^(\d)(\d{2})$/$2/)
|
|
1083
|
5 |
2 |
$1 > 1 ? :
|
|
1087
|
38 |
1 |
unless (not length $num or $num =~ /^0+$/)
|
|
1089
|
22 |
16 |
if ($num =~ s/^(\d)(\d)$/$2/)
|
|
1091
|
11 |
11 |
$1 > 1 ? :
|
|
1093
|
7 |
31 |
if $num == 0
|
|
1095
|
31 |
7 |
unless (not length $num or $num =~ /^0+$/)
|
|
1108
|
0 |
3 |
unless defined $num and length $num
|
|
1112
|
1 |
12 |
unless ($_ =~ /^[0-9]$/)
|
|
1128
|
0 |
63 |
if $num =~ /^[\x{ff10}\x{ff11}\x{ff12}\x{ff13}\x{ff14}\x{ff15}\x{ff16}\x{ff17}\x{ff18}\x{ff19}]+$/
|
|
1132
|
0 |
135 |
if (/^[\x{ff10}\x{ff11}\x{ff12}\x{ff13}\x{ff14}\x{ff15}\x{ff16}\x{ff17}\x{ff18}\x{ff19}]$/) { }
|
|
|
134 |
1 |
elsif (/^[0-9]$/) { }
|
|
1142
|
0 |
1 |
if warnings::enabled()
|
|
1161
|
53 |
0 |
unless $self->{'debug'}
|
|
1175
|
0 |
208 |
if ref $array ne "ARRAY"
|
|
1176
|
0 |
208 |
unless scalar @$array
|
|
1177
|
0 |
208 |
unless defined $num and length $num
|
|
1180
|
168 |
40 |
if length $index1
|
|
1184
|
0 |
80 |
if ($c =~ /^[0-9]$/)
|
|
1190
|
0 |
80 |
unless length $index
|
|
1200
|
0 |
0 |
if (@_)
|
|
1211
|
0 |
0 |
if (@_)
|
|
1215
|
0 |
0 |
if ($field eq 'zenkaku') { }
|
|
|
0 |
0 |
elsif ($field eq 'hankaku') { }
|
|
1239
|
0 |
2 |
eval q[DateTime::TimeZone->new( name => 'local' );] ? :
|
|
1251
|
0 |
0 |
if (@_)
|
|
1253
|
0 |
0 |
ref $_ eq 'CODE' ? :
|
|
1254
|
0 |
0 |
if warnings::enabled("DateTime::Format::JP")
|
|
1257
|
0 |
0 |
ref $self ? :
|
|
1290
|
44 |
0 |
if (ref $ref eq 'ARRAY' and scalar @$ref == 3) { }
|
|
1303
|
0 |
44 |
if ($@)
|