Branch Coverage

lib/DateTime/Format/JP.pm
Criterion Covered Total %
branch 226 500 45.2


line true false branch
417 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 '-') { }
786 0 83 unless exists $map->{$token}
790 0 83 if (index($pat, "%") != -1)
805 0 116 unless defined $num and length $num
808 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}//)
813 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}//)
818 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}//)
823 101 15 if (length $num)
838 44 10604 if ($ref->{'name'} eq $name)
852 0 15 if not ref $dt or ref $dt and not $dt->isa("DateTime")
858 3615 15 if scalar @{$def->{'end'};} and $y > $def->{'end'}[0]
859 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]) { }
890 0 78 if ref $opts ne "HASH"
893 0 234 unless length $opts->{$_}
895 15 63 if (length $opts->{'ampm'} and $opts->{'ampm'} eq "\x{5348}\x{5f8c}")
900 0 78 if ($INC{'threads.pm'} and not exists $INC{'forks.pm'})
903 44 34 if ($opts->{'era'} and ref $opts->{'era'}) { }
907 44 0 if $opts->{'year'} > 1
919 0 34 if (length $opts->{'time_zone'}) { }
0 34 elsif (length $self->{'time_zone'}) { }
930 66 12 if $opts->{'hour'}
931 47 31 if $opts->{'minute'}
932 15 63 if $opts->{'second'}
935 0 0 if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
0 78 if $@
78 0 if (defined $Nice::Try::WANTARRAY and not $Nice::Try::THREADED and not !length([caller]->[1]) && [caller 1]->[3] eq '(eval)')
0 0 &$Nice::Try::TRY ? :
0 0 if scalar @Nice::Try::VOID
0 78 if ($Nice::Try::WANT eq 'OBJECT') { }
0 78 elsif ($Nice::Try::WANT eq 'CODE') { }
0 78 elsif ($Nice::Try::WANT eq 'HASH') { }
0 78 elsif ($Nice::Try::WANT eq 'ARRAY') { }
0 78 elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
0 78 elsif ($Nice::Try::WANT eq 'GLOB') { }
0 78 elsif ($Nice::Try::WANT eq 'LIST') { }
0 78 elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
0 78 elsif ($Nice::Try::WANT eq 'VOID') { }
78 0 elsif ($Nice::Try::WANT eq 'SCALAR') { }
0 0 if defined $Nice::Try::LAST_VAL
0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
78 0 if (defined $Nice::Try::WANT and length $Nice::Try::WANT) { }
0 78 length $@ ? :
78 0 unless &Scalar::Util::blessed($@)
0 0 if ($Nice::Try::HAS_CATCH)
0 78 if ($Nice::Try::DIED)
938 0 0 if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
0 0 &$Nice::Try::CATCH ? :
0 0 if scalar @Nice::Try::VOID
0 0 if ($Nice::Try::WANT eq 'OBJECT') { }
0 0 elsif ($Nice::Try::WANT eq 'CODE') { }
0 0 elsif ($Nice::Try::WANT eq 'HASH') { }
0 0 elsif ($Nice::Try::WANT eq 'ARRAY') { }
0 0 elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
0 0 elsif ($Nice::Try::WANT eq 'GLOB') { }
0 0 elsif ($Nice::Try::WANT eq 'LIST') { }
0 0 elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
0 0 elsif ($Nice::Try::WANT eq 'VOID') { }
0 0 elsif ($Nice::Try::WANT eq 'SCALAR') { }
0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 if (defined $Nice::Try::WANT and length $Nice::Try::WANT) { }
0 0 if (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__NEXT__') { }
0 0 elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__LAST__') { }
0 0 elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__REDO__') { }
0 78 if ($Nice::Try::WANT eq 'LIST') { }
0 78 elsif ($Nice::Try::WANT eq 'VOID') { }
0 78 elsif ($Nice::Try::WANT eq 'OBJECT') { }
0 78 elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
78 0 elsif ($Nice::Try::WANT eq 'SCALAR') { }
0 0 elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
0 0 elsif ($Nice::Try::WANT eq 'CODE') { }
0 0 elsif ($Nice::Try::WANT eq 'HASH') { }
0 0 elsif ($Nice::Try::WANT eq 'ARRAY') { }
0 0 elsif ($Nice::Try::WANT eq 'GLOB') { }
0 0 $Nice::Try::WANTARRAY ? :
78 0 if (defined $Nice::Try::WANT and length $Nice::Try::WANT) { }
78 0 unless (defined $Nice::Try::BREAK)
78 0 if (defined $Nice::Try::WANTARRAY and !&Scalar::Util::blessed($Nice::Try::RETVAL[0]) || &Scalar::Util::blessed($Nice::Try::RETVAL[0]) && !$Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
0 0 if ($Nice::Try::BREAK eq 'next') { }
0 0 elsif ($Nice::Try::BREAK eq 'last') { }
0 0 elsif ($Nice::Try::BREAK eq 'redo') { }
0 0 if (defined $Nice::Try::BREAK)
0 0 scalar @Nice::Try::LAST_VAL > 1 ? :
945 0 0 if $self->{'debug'} < int $level
946 0 0 ref $_ eq 'CODE' ? :
957 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) { }
960 29 24 if ($re->{'era'}) { }
972 109 50 if $re->{$_} =~ /^[0-9]+$/
975 0 50 unless defined $rv
980 127 32 if not length $re->{$_} or $re->{$_} =~ /^[0-9]+$/
983 0 32 unless defined $rv
993 0 0 if ($re->{'era'}) { }
1010 15 10 if ($re->{'era'}) { }
1024 0 75 unless defined $rv
1029 34 41 unless length $re->{$_}
1032 0 41 unless defined $rv
1047 0 40 unless defined $num and length $num
1051 6 34 if ($num =~ s/^(\d)(\d{3})$/$2/)
1053 5 1 $1 > 1 ? :
1057 39 1 unless (not length $num or $num =~ /^0+$/)
1059 7 32 if ($num =~ s/^(\d)(\d{2})$/$2/)
1061 5 2 $1 > 1 ? :
1065 38 1 unless (not length $num or $num =~ /^0+$/)
1067 22 16 if ($num =~ s/^(\d)(\d)$/$2/)
1069 11 11 $1 > 1 ? :
1071 7 31 if $num == 0
1073 31 7 unless (not length $num or $num =~ /^0+$/)
1086 0 3 unless defined $num and length $num
1090 1 12 unless ($_ =~ /^[0-9]$/)
1106 0 63 if $num =~ /^[\x{ff10}\x{ff11}\x{ff12}\x{ff13}\x{ff14}\x{ff15}\x{ff16}\x{ff17}\x{ff18}\x{ff19}]+$/
1110 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]$/) { }
1120 0 1 if warnings::enabled()
1139 53 0 unless $self->{'debug'}
1153 0 208 if ref $array ne "ARRAY"
1154 0 208 unless scalar @$array
1155 0 208 unless defined $num and length $num
1158 168 40 if length $index1
1162 0 80 if ($c =~ /^[0-9]$/)
1168 0 80 unless length $index
1178 0 0 if (@_)
1189 0 0 if (@_)
1193 0 0 if ($field eq 'zenkaku') { }
0 0 elsif ($field eq 'hankaku') { }
1218 2 0 eval q[DateTime::TimeZone->new( name => 'local' );] ? :
1230 0 0 if (@_)
1232 0 0 ref $_ eq 'CODE' ? :
1233 0 0 if warnings::enabled("DateTime::Format::JP")
1236 0 0 ref $self ? :
1265 0 44 if ($INC{'threads.pm'} and not exists $INC{'forks.pm'})
1267 44 0 if (ref $ref eq 'ARRAY' and scalar @$ref == 3) { }
1280 0 0 if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
0 44 if $@
44 0 if (defined $Nice::Try::WANTARRAY and not $Nice::Try::THREADED and not !length([caller]->[1]) && [caller 1]->[3] eq '(eval)')
0 0 &$Nice::Try::TRY ? :
0 0 if scalar @Nice::Try::VOID
0 44 if ($Nice::Try::WANT eq 'OBJECT') { }
0 44 elsif ($Nice::Try::WANT eq 'CODE') { }
0 44 elsif ($Nice::Try::WANT eq 'HASH') { }
0 44 elsif ($Nice::Try::WANT eq 'ARRAY') { }
0 44 elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
0 44 elsif ($Nice::Try::WANT eq 'GLOB') { }
0 44 elsif ($Nice::Try::WANT eq 'LIST') { }
0 44 elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
0 44 elsif ($Nice::Try::WANT eq 'VOID') { }
44 0 elsif ($Nice::Try::WANT eq 'SCALAR') { }
0 0 if defined $Nice::Try::LAST_VAL
0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
44 0 if (defined $Nice::Try::WANT and length $Nice::Try::WANT) { }
0 44 length $@ ? :
44 0 unless &Scalar::Util::blessed($@)
0 0 if ($Nice::Try::HAS_CATCH)
0 44 if ($Nice::Try::DIED)
1283 0 0 if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
0 0 &$Nice::Try::CATCH ? :
0 0 if scalar @Nice::Try::VOID
0 0 if ($Nice::Try::WANT eq 'OBJECT') { }
0 0 elsif ($Nice::Try::WANT eq 'CODE') { }
0 0 elsif ($Nice::Try::WANT eq 'HASH') { }
0 0 elsif ($Nice::Try::WANT eq 'ARRAY') { }
0 0 elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
0 0 elsif ($Nice::Try::WANT eq 'GLOB') { }
0 0 elsif ($Nice::Try::WANT eq 'LIST') { }
0 0 elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
0 0 elsif ($Nice::Try::WANT eq 'VOID') { }
0 0 elsif ($Nice::Try::WANT eq 'SCALAR') { }
0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 if (defined $Nice::Try::WANT and length $Nice::Try::WANT) { }
0 0 if (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__NEXT__') { }
0 0 elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__LAST__') { }
0 0 elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__REDO__') { }
0 44 if ($Nice::Try::WANT eq 'LIST') { }
0 44 elsif ($Nice::Try::WANT eq 'VOID') { }
0 44 elsif ($Nice::Try::WANT eq 'OBJECT') { }
0 44 elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
44 0 elsif ($Nice::Try::WANT eq 'SCALAR') { }
0 0 elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
0 0 elsif ($Nice::Try::WANT eq 'CODE') { }
0 0 elsif ($Nice::Try::WANT eq 'HASH') { }
0 0 elsif ($Nice::Try::WANT eq 'ARRAY') { }
0 0 elsif ($Nice::Try::WANT eq 'GLOB') { }
0 0 $Nice::Try::WANTARRAY ? :
44 0 if (defined $Nice::Try::WANT and length $Nice::Try::WANT) { }
44 0 unless (defined $Nice::Try::BREAK)
44 0 if (defined $Nice::Try::WANTARRAY and !&Scalar::Util::blessed($Nice::Try::RETVAL[0]) || &Scalar::Util::blessed($Nice::Try::RETVAL[0]) && !$Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
0 0 if ($Nice::Try::BREAK eq 'next') { }
0 0 elsif ($Nice::Try::BREAK eq 'last') { }
0 0 elsif ($Nice::Try::BREAK eq 'redo') { }
0 0 if (defined $Nice::Try::BREAK)
0 0 scalar @Nice::Try::LAST_VAL > 1 ? :