Branch Coverage

blib/lib/DateTime/Format/Alami.pm
Criterion Covered Total %
branch 94 126 74.6


line true false branch
46 0 7 if ($class eq 'DateTime::Format::Alami')
52 0 7 unless (${"${class}::RE_DT";} and ${"${class}::RE_DUR";})
61 0 0 unless $meth =~ /^(odur|o|pdur|p)_/u
67 0 0 if ($is_pdur) { }
80 0 0 $is_p || $is_pdur ? :
0 0 $ENV{'DEBUG'} ? :
0 0 $is_p || $is_pdur ? :
92 0 0 unless ($pat_name_dep_orders{$a} // 9999) <=> ($pat_name_dep_orders{$b} // 9999)
93 0 0 $ENV{'DEBUG'} ? :
120 0 7 unless (${"${class}::MAPS";})
169 2 99 unless (ref $self)
176 99 2 if $opts->{'time_zone'}
180 4 97 unless (defined *{ref($self) . '::_code_match_dt';})
182 0 4 if $@
190 14 102 unless my $match = &{ref($self) . '::_code_match_dt';}($str)
191 71 31 unless $DateTime::Format::Alami::o->{'_uses_time'}
198 31 71 $DateTime::Format::Alami::o->{'_uses_time'} ? :
201 2 100 if $opts->{'format'} eq 'combined' or $opts->{'format'} eq 'epoch'
203 87 15 if $opts->{'returns'} eq 'first'
206 9 92 unless @res
208 1 91 if $opts->{'returns'} eq 'last'
210 3 89 if ($opts->{'returns'} =~ /\A(?:all_cron|earliest|latest)\z/u)
218 84 8 if ($opts->{'format'} eq 'DateTime') { }
1 7 elsif ($opts->{'format'} eq 'epoch') { }
6 1 elsif ($opts->{'format'} eq 'verbatim') { }
226 2 90 if ($opts->{'returns'} =~ /\A(?:all|all_cron)\z/u) { }
88 2 elsif ($opts->{'returns'} =~ /\A(?:first|earliest)\z/u) { }
2 0 elsif ($opts->{'returns'} =~ /\A(?:last|latest)\z/u) { }
253 2 15 unless (ref $self)
261 4 13 unless (defined *{ref($self) . '::_code_match_dur';})
263 0 4 if $@
271 8 24 unless my $match = &{ref($self) . '::_code_match_dur';}($str)
279 2 22 if ($opts->{'format'} eq 'combined' or $opts->{'format'} eq 'seconds')
292 9 15 if $opts->{'returns'} eq 'first'
295 3 14 unless @res
297 1 13 if $opts->{'returns'} eq 'last'
300 3 11 if ($opts->{'returns'} =~ /\A(?:all_sorted|largest|smallest)\z/u)
308 6 8 if ($opts->{'format'} eq 'Duration') { }
1 7 elsif ($opts->{'format'} eq 'seconds') { }
6 1 elsif ($opts->{'format'} eq 'verbatim') { }
316 2 12 if ($opts->{'returns'} =~ /\A(?:all|all_sorted)\z/u) { }
10 2 elsif ($opts->{'returns'} =~ /\A(?:first|smallest)\z/u) { }
2 0 elsif ($opts->{'returns'} =~ /\A(?:last|largest)\z/u) { }
405 5 25 unless ($self->{'_cache_re_parse_dur'})
410 5 25 unless ($self->{'_cache_w_second'})
422 6 34 if ($unit ~~ $self->{'_cache_w_second'}) { }
8 26 elsif ($unit ~~ $self->{'_cache_w_minute'}) { }
9 17 elsif ($unit ~~ $self->{'_cache_w_hour'}) { }
17 0 elsif ($unit ~~ $self->{'_cache_w_day'}) { }
0 0 elsif ($unit ~~ $self->{'_cache_w_week'}) { }
0 0 elsif ($unit ~~ $self->{'_cache_w_month'}) { }
0 0 elsif ($unit ~~ $self->{'_cache_w_year'}) { }
446 6 8 unless $self->{'_dt'}
451 0 0 unless $self->{'_dt'}
486 79 68 if (defined $y0)
488 56 23 if (length $y0 == 2) { }
496 147 0 if (defined $m->{'o_dayint'})
499 92 55 if (defined $m->{'o_monthint'})
502 61 86 if (defined $m->{'o_monthname'})
528 12 15 if ($m->{'offset'})
557 3 11 if ($m->{'o_ampm'})
558 2 1 if lc $m->{'o_ampm'} eq 'pm' and $hour < 12
559 0 3 if lc $m->{'o_ampm'} eq 'am' and $hour == 12