| line |
true |
false |
branch |
|
608
|
0 |
120 |
if $_ > 63 |
|
614
|
8 |
4 |
if ($fdat[1] < 0) |
|
615
|
8 |
4 |
if ($fdat[1] >= 320) |
|
617
|
0 |
12 |
if ($toob) { } |
|
620
|
0 |
0 |
if $i < 4 or $i == $#fdat |
|
622
|
0 |
0 |
if $i < $#fdat |
|
626
|
24 |
22 |
if ($fdat[$i]) |
|
637
|
0 |
0 |
if $srvr |
|
638
|
0 |
0 |
unless ref $rarg and $rarg->isa('Time::PT') |
|
639
|
0 |
0 |
if ($larg->C < $rarg->C or $larg->Y < $rarg->Y or $larg->O < $rarg->O or $larg->D < $rarg->D or $larg->h < $rarg->h or $larg->i < $rarg->i or $larg->s < $rarg->s or $larg->f < $rarg->f or $larg->j < $rarg->j) { } |
|
|
0 |
0 |
elsif ($larg->C > $rarg->C or $larg->Y > $rarg->Y or $larg->O > $rarg->O or $larg->D > $rarg->D or $larg->h > $rarg->h or $larg->i > $rarg->i or $larg->s > $rarg->s or $larg->f > $rarg->f or $larg->j > $rarg->j) { } |
|
662
|
0 |
0 |
$c ? : |
|
|
0 |
0 |
$c < 0 ? : |
|
670
|
0 |
0 |
if ($srvr) |
|
673
|
0 |
0 |
unless (ref $rarg and $rarg->isa('Time::Frame')) |
|
698
|
0 |
0 |
if ($srvr) |
|
701
|
0 |
0 |
if (ref $rarg and $rarg->isa('Time::PT')) { } |
|
704
|
0 |
0 |
unless ref $rarg and $rarg->isa('Time::Frame') |
|
716
|
0 |
0 |
if $rslt->isa('Time::PT') |
|
720
|
0 |
0 |
if $rslt->isa('Time::PT') |
|
726
|
0 |
0 |
if (not $mdon) { } |
|
727
|
0 |
0 |
if ($$self{'_jink'} >= $$self{'__jpf'} or 0 > $$self{'_jink'}) |
|
728
|
0 |
0 |
if 0 > $$self{'_jink'} |
|
732
|
0 |
0 |
if ($$self{'_frame'} >= $$self{'__fps'} or 0 > $$self{'_frame'}) |
|
733
|
0 |
0 |
if 0 > $$self{'_frame'} |
|
737
|
0 |
0 |
if ($$self{'_second'} >= 60 or 0 > $$self{'_second'}) |
|
738
|
0 |
0 |
if 0 > $$self{'_second'} |
|
742
|
0 |
0 |
if ($$self{'_minute'} >= 60 or 0 > $$self{'_minute'}) |
|
743
|
0 |
0 |
if 0 > $$self{'_minute'} |
|
747
|
0 |
0 |
if ($$self{'_hour'} >= 24 or 0 > $$self{'_hour'}) |
|
748
|
0 |
0 |
if 0 > $$self{'_hour'} |
|
752
|
0 |
0 |
unless defined $$self{'_month'} and $$self{'_month'} |
|
753
|
0 |
0 |
if $dinf |
|
755
|
0 |
0 |
if (0 >= $$self{'_day'}) { } |
|
771
|
0 |
0 |
if $dinf |
|
773
|
0 |
0 |
if ($$self{'_month'} > 12 or 0 >= $$self{'_month'}) |
|
774
|
0 |
0 |
if 0 > $$self{'_month'} |
|
795
|
0 |
0 |
if (0 < length $numb and length $numb <= 7) { } |
|
|
0 |
0 |
elsif (7 < length $numb and length $numb <= 12) { } |
|
797
|
0 |
0 |
unless (defined $prtz[$i]) |
|
798
|
0 |
0 |
if $prtz[1] |
|
799
|
0 |
0 |
unless $prtz[2] |
|
808
|
0 |
0 |
if defined $prtz[$i] |
|
818
|
0 |
0 |
if ($prsl eq 'eq') |
|
819
|
0 |
0 |
if ($i < @prtb and $i == @prta || b10($prta[$i]) < b10($prtb[$i])) { } |
|
|
0 |
0 |
elsif ($i < @prta and $i == @prtb || b10($prta[$i]) > b10($prtb[$i])) { } |
|
834
|
0 |
0 |
if not @parm and -p STDIN |
|
838
|
0 |
0 |
if ($tout =~ /^c/i) { } |
|
|
0 |
0 |
elsif ($tout =~ /^n/i) { } |
|
|
0 |
0 |
elsif ($tout =~ s/^f//i) { } |
|
840
|
0 |
0 |
if $tout =~ /^cp/ |
|
844
|
0 |
0 |
if (length $tout and -r $tout) { } |
|
|
0 |
0 |
elsif (length $dayv and -r $dayv) { } |
|
858
|
0 |
0 |
if (defined $tout and defined $dayv and exists $dmap{lc $tout} and exists $mmap{lc $dayv} || $dayv =~ /^\d\d?$/) |
|
867
|
0 |
0 |
if (defined $yerv and defined $horv and $yerv =~ /^\d+:\d+(:\d+)?(:\d+)?$/) |
|
870
|
0 |
0 |
if (defined $dayv and defined $yerv and $dayv =~ /^c(mp)?$/i || $yerv =~ /^c(mp)?$/i) |
|
872
|
0 |
0 |
if ($dayv =~ /^c(mp)?$/i) |
|
875
|
0 |
0 |
if (defined $dayv and defined $yerv and $dayv =~ /^[+-]$/) |
|
877
|
0 |
0 |
if (defined $horv) |
|
878
|
0 |
0 |
if ($horv eq '-e') { } |
|
|
0 |
0 |
elsif (defined $minv and $horv =~ /^[+-]$/) { } |
|
883
|
0 |
0 |
if (defined $secv) |
|
884
|
0 |
0 |
if ($secv eq '-e') { } |
|
|
0 |
0 |
elsif ($secv =~ /^[+-]$/) { } |
|
887
|
0 |
0 |
if (defined $temp) |
|
895
|
0 |
0 |
if (defined $tout) |
|
896
|
0 |
0 |
if exists $mmap{lc $tout} |
|
897
|
0 |
0 |
if ($tout =~ m[^(\d\d?)([-/])(\d\d?)\2(\d{1,4})$]) |
|
899
|
0 |
0 |
if length $yerv == 1 |
|
900
|
0 |
0 |
if length $yerv == 2 |
|
903
|
0 |
0 |
unless (defined $tout) |
|
907
|
0 |
0 |
if (defined $tout and $tout =~ /^(\w+)([+-].+)$/) { } |
|
|
0 |
0 |
elsif (defined $tout) { } |
|
910
|
0 |
0 |
if length $summ <= 7 |
|
915
|
0 |
0 |
if ($1 eq '+') { } |
|
926
|
0 |
0 |
if ($stim[3] != 29 or $stim[4] != 1 or $stim[5] % 4 != 0) { } |
|
|
0 |
0 |
elsif ($stim[3] > 29) { } |
|
933
|
0 |
0 |
if $fldz[4] |
|
944
|
0 |
0 |
if ($stim[4] != 2 or $stim[5] % 4 != 0) { } |
|
951
|
0 |
0 |
if $fldz[4] |
|
954
|
0 |
0 |
unless ($stim[3]) |
|
958
|
0 |
0 |
if (defined $dayv and $dayv =~ /^(-e|d)$/) { } |
|
963
|
0 |
0 |
if exists $mmap{lc $tout} |
|
964
|
0 |
0 |
if ($tout eq '-e' or defined $dayv and $dayv eq '-e') { } |
|
|
0 |
0 |
elsif ($tout eq 'pt') { } |
|
|
0 |
0 |
elsif (defined $dayv and length $dayv and length $tout and defined $yerv and $yerv eq 'c') { } |
|
966
|
0 |
0 |
if ($tout eq 'pt' or $tout eq '-e') { } |
|
|
0 |
0 |
elsif (length $tout > 7) { } |
|
980
|
0 |
0 |
if (defined $time[$i]) { } |
|
986
|
0 |
0 |
if $time[1] |
|
987
|
0 |
0 |
unless $time[2] |
|
989
|
0 |
0 |
if $time[2] > 62 |
|
993
|
0 |
0 |
if ($time[3] > 23) |
|
994
|
0 |
0 |
if ($time[2] > 31) |
|
1003
|
0 |
0 |
if ($colr) { } |
|
1004
|
0 |
0 |
if ($colr == 2) { } |
|
1026
|
0 |
0 |
if $nwln |
|
1033
|
0 |
0 |
if ($frmt =~ /^-*f/i) { } |
|
|
0 |
0 |
elsif ($frmt =~ /^-*k/i) { } |
|
1067
|
0 |
0 |
if length $fstr <= 7 |
|
1070
|
0 |
0 |
if ($ctyp =~ /^s/i) { } |
|
|
0 |
0 |
elsif ($ctyp =~ /^h/i) { } |
|
|
0 |
0 |
elsif ($ctyp =~ /^4/i) { } |
|
1072
|
0 |
0 |
if (length $fstr > 7) { } |
|
1081
|
0 |
0 |
if (length $fstr > 7) { } |
|
1092
|
0 |
0 |
if (length $fstr > 7) { } |
|
1099
|
0 |
0 |
if ($ctyp =~ /^z/i) |
|
1102
|
0 |
0 |
if (length $fstr > 7) { } |
|
1125
|
7 |
0 |
unless defined $ityp and $ityp =~ /::/ |
|
1143
|
0 |
154 |
if $nobj |
|
1145
|
5 |
2 |
if (defined $ityp and not $ityp =~ /::/) |
|
1149
|
1 |
4 |
unless defined $idat |
|
1150
|
1 |
4 |
if ($ityp =~ /^verbose$/i) { } |
|
|
0 |
4 |
elsif ($ityp =~ /^s/i and length $idat <= 9) { } |
|
1155
|
0 |
1 |
if ($idat =~ /$rgxs/i) { } |
|
1170
|
1 |
0 |
if ($idat =~ /$rgxs/i) { } |
|
1177
|
0 |
0 |
if ($idat =~ /$rgxs/i) |
|
1183
|
1 |
0 |
if (defined $mont) |
|
1185
|
1 |
11 |
if (lc $mont eq lc $mnth[$i]) |
|
1194
|
0 |
0 |
if ($idat =~ s/^(.)//) |
|
1201
|
44 |
44 |
if ($ityp =~ /^s/i) { } |
|
|
22 |
22 |
elsif ($ityp =~ /^[la]/i) { } |
|
|
22 |
0 |
elsif ($ityp =~ /^h/i) { } |
|
1202
|
20 |
24 |
if $idat =~ s/^(.)// |
|
1204
|
10 |
12 |
if @{$idat;} |
|
1208
|
1 |
8 |
if ($attr =~ /$_/) |
|
1220
|
0 |
154 |
unless defined $$self{$attr} |
|
1227
|
6 |
1 |
if $$self{'_month'} |
|
1228
|
6 |
1 |
if $mdec |
|
1229
|
1 |
6 |
unless $$self{'_day'} |
|
1230
|
1 |
6 |
if $dinc |
|
1234
|
0 |
7 |
if $$self{'_day'} > 62 |
|
1243
|
0 |
7 |
if ($$self{'_hour'} > 23) |
|
1246
|
0 |
7 |
if ($$self{'_day'} > 31) |
|
1249
|
1 |
6 |
if $dinc |
|
1250
|
6 |
1 |
if $mdec |
|
1258
|
0 |
0 |
if @_ > 1 |
|
1264
|
0 |
0 |
if (@_ > 1) |
|
1266
|
0 |
0 |
if ($mnmz[$mtch] =~ /^$nwvl/i) |
|
1276
|
0 |
0 |
if (@_ > 2) { } |
|
|
0 |
0 |
elsif (@_ > 1) { } |
|
1278
|
0 |
0 |
if length $monr > 3 |
|
1283
|
0 |
0 |
if @_ > 1 |
|
1288
|
0 |
0 |
if (@_ > 1) |
|
1289
|
0 |
0 |
$nwvl >= 70 ? : |
|
1311
|
0 |
0 |
if @_ > 2 |
|
1318
|
0 |
0 |
if (@_ > 1) { } |
|
1320
|
0 |
0 |
if ($summ + days_in($$self{'_year'}, $m) > $nwvl) { } |
|
1392
|
0 |
0 |
if @_ > 1 |
|
1396
|
0 |
0 |
if @_ > 1 |