Branch Coverage

blib/lib/Time/Fields.pm
Criterion Covered Total %
branch 40 114 35.0


line true false branch
296 0 0 if $i < 4
297 0 0 unless defined $fdat[$i]
299 0 0 if $i < $#fdat
414 0 7 unless defined $ityp and $ityp =~ /::/
418 0 154 if $nobj
421 0 7 if (defined $ityp and not $ityp =~ /::/)
422 0 0 unless defined $idat
424 0 0 if ($ityp =~ /^s/i) { }
0 0 elsif ($ityp =~ /^[la]/i) { }
0 0 elsif ($ityp =~ /^h/i) { }
425 0 0 if $idat =~ s/^(.)//
427 0 0 if @{$idat;}
431 0 0 if ($attr =~ /$_/)
446 0 0 unless defined $type and exists $_fielclrz{lc $type}
452 0 0 if length $fstr <= 7
455 0 0 if ($ctyp =~ /^s/i) { }
0 0 elsif ($ctyp =~ /^h/i) { }
457 0 0 if (length $fstr > 7) { }
466 0 0 if (length $fstr > 7) { }
474 0 0 if ($ctyp =~ /^z/i)
477 0 0 if (length $fstr > 7) { }
498 3 5 if ($Time::Fields::AUTOLOAD =~ /.*::[sg]et(_\w+)/i) { }
0 5 elsif ($Time::Fields::AUTOLOAD =~ /.*::(use_\w+)/i) { }
0 5 elsif ($Time::Fields::AUTOLOAD =~ /.*::time$/i) { }
0 5 elsif ($Time::Fields::AUTOLOAD =~ /.*::alltime$/i) { }
0 5 elsif ($Time::Fields::AUTOLOAD =~ /.*::date$/i) { }
0 5 elsif ($Time::Fields::AUTOLOAD =~ /.*::alldate$/i) { }
0 5 elsif ($Time::Fields::AUTOLOAD =~ /.*::all$/i) { }
0 5 elsif ($Time::Fields::AUTOLOAD =~ /.*::dt$/i) { }
0 5 elsif ($Time::Fields::AUTOLOAD =~ /.*::mday$/i) { }
3 2 elsif ($Time::Fields::AUTOLOAD =~ /.*::([CYMODhmisfjz][CYMODhmisfjz]+)$/i) { }
2 0 elsif ($Time::Fields::AUTOLOAD =~ /.*::[-_]?([CYMODhmisfjz])(.)?/i) { }
500 0 0 if @_ > 1
501 1 2 if @_ > 1
506 0 0 if @_ > 1
507 0 0 if @_ > 1
529 0 0 if @_ > 1
530 0 0 if @_ > 1
537 1 19 if $fldl[$i] =~ /[yd]/i and $fldl[$i + 1] eq 'm'
538 0 20 if $fldl[$i] eq 'm' and $fldl[$i + 1] =~ /[yd]/i
539 2 18 if $fldl[$i] eq 'M'
540 1 19 if $fldl[$i] eq 'm'
547 113 2373 if (defined $mtch and $fldl[$i] =~ /^$mtch/i)
548 3 110 if $i < @nval
558 23 483 if (defined $mtch and $fldl[$i] =~ /$mtch/i)
559 3 20 if $i < @nval
568 0 0 if $atl1 eq 'm' and defined $atl2 and lc $atl2 eq 'o'
569 0 0 if $atl1 eq 'M' and defined $atl2 and lc $atl2 eq 'i'
570 0 2 if $atl1 eq 'M'
571 0 2 if $atl1 eq 'm'
574 2 42 if defined $mtch and $atl1 =~ /$mtch/i
576 0 2 if ($atl1 eq 'O')
577 0 0 if ($Time::Fields::AUTOLOAD =~ /.*::_/)
578 0 0 if @_ > 1
579 0 0 if @_ > 1
583 0 0 if @_ > 1
584 1 1 if @_ > 1