| line |
!l |
l&&!r |
l&&r |
condition |
|
592
|
1 |
0 |
0 |
length $v0 > $charsHandled || $leni > 0 && length $v > $leni and not $ops->{'-truncate'} =~ /no/io |
|
611
|
0 |
0 |
0 |
length $v == length $inpic and $inpic =~ /^yyyymmdd(?:hhmm(?:ss)?)?$/i |
|
636
|
0 |
0 |
0 |
$leni and length $t > $leni |
|
|
0 |
0 |
0 |
$leni and length $t > $leni and not $ops->{'-truncate'} =~ /no/io |
|
660
|
0 |
1 |
0 |
$leni and length $v > $leni |
|
|
1 |
0 |
0 |
$leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io |
|
677
|
1 |
0 |
0 |
$leni and length $v > $leni |
|
|
1 |
0 |
0 |
$leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io |
|
707
|
1 |
0 |
0 |
$leni and length $t > $leni |
|
|
1 |
0 |
0 |
$leni and length $t > $leni and not $ops->{'-truncate'} =~ /no/io |
|
716
|
0 |
0 |
0 |
$leni and length $v > $leni |
|
|
0 |
0 |
0 |
$leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io |
|
747
|
0 |
1 |
0 |
not $fixedLeni || $leniSpecified and $float =~ s/\(//o |
|
758
|
0 |
0 |
0 |
!$ops->{'-nonnumeric'} && ($commatize || $float =~ /\$/o || $pic =~ /[\.\,\^\$]/o) |
|
769
|
0 |
0 |
3 |
$decPic and not $ops->{'-nonnumeric'} |
|
784
|
3 |
0 |
0 |
$l > $wholeLeni and $float |
|
|
3 |
0 |
0 |
$l > $wholeLeni and $float and $float ne '(' |
|
789
|
3 |
0 |
0 |
length $t > $leni and $t =~ /\./o |
|
801
|
0 |
0 |
0 |
$l > $leni and $float |
|
805
|
0 |
0 |
0 |
length $t > $leni and $t =~ /\./o |
|
824
|
0 |
3 |
4 |
$l < $leni and $float |
|
826
|
0 |
3 |
1 |
not $ops->{'-nonnumeric'} and $t2 eq '(' |
|
|
3 |
1 |
0 |
not $ops->{'-nonnumeric'} and $t2 eq '(' and $v >= 0 |
|
831
|
3 |
0 |
0 |
$l == $leni and $v < 0 |
|
|
3 |
0 |
0 |
$l == $leni and $v < 0 and $float =~ s/\(//o |
|
|
0 |
0 |
0 |
$l == $leni and $v < 0 and $float =~ s/\(//o and not $ops->{'-nonnumeric'} |
|
835
|
3 |
0 |
0 |
$l > $leni and $t =~ /\./o |
|
839
|
0 |
3 |
6 |
!$leniSpecified || $l < $leni and $t =~ s/(\d)(\d\d\d)\b/$1,$2/ |
|
845
|
3 |
0 |
0 |
$ops->{'-truncate'} =~ /er/io and length $t > $leni |
|
848
|
0 |
3 |
0 |
not $fixedLeni || $leniSpecified and $float =~ /\(/o |
|
859
|
0 |
0 |
0 |
not $fixedLeni || $leniSpecified and $float =~ /\(/o |
|
978
|
0 |
0 |
0 |
$l > $leni and $v =~ /\./o |
|
985
|
0 |
0 |
0 |
$l < $leni and $v =~ s/(\d)(\d\d\d)\b/$1,$2/ |
|
992
|
0 |
0 |
0 |
$float and $l < $leni |
|
1037
|
1 |
0 |
0 |
$leni and length $v > $leni |
|
|
1 |
0 |
0 |
$leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io |
|
1054
|
0 |
0 |
0 |
$t and $outpic |
|
1060
|
0 |
0 |
0 |
$outpic and not $outpic =~ /^yyyymmdd(?:hhmm(?:ss)?)?$/i |
|
1075
|
0 |
0 |
0 |
$leni and length $t > $leni |
|
|
0 |
0 |
0 |
$leni and length $t > $leni and not $ops->{'-truncate'} =~ /no/io |
|
1084
|
0 |
0 |
0 |
$leni and length $v > $leni |
|
|
0 |
0 |
0 |
$leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io |
|
1110
|
0 |
0 |
0 |
$leni and length $v > $leni |
|
|
0 |
0 |
0 |
$leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io |
|
1117
|
0 |
0 |
0 |
$leni and length $v > $leni |
|
|
0 |
0 |
0 |
$leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io |
|
1130
|
0 |
0 |
0 |
$special =~ /\(/o and $v =~ /\(/o |
|
|
0 |
0 |
0 |
$suffix =~ /^[\_ ]*CR\s*$/o and $v =~ s/\s*CR\s*$//o |
|
1162
|
0 |
0 |
0 |
not $pic =~ /\./o and $v =~ /\./ |
|
|
0 |
0 |
0 |
not $pic =~ /\./o and $v =~ /\./ and $v =~ /^[\+\-\d\. ]+$/o |
|
1173
|
0 |
0 |
0 |
$leniSpecified and $leni > $leniSpecified |
|
1174
|
0 |
0 |
0 |
$leni and length $v > $leni |
|
1175
|
0 |
0 |
0 |
$decJustify eq '>' and not $ops->{'-nonnumeric'} |
|
|
0 |
0 |
0 |
$decJustify eq '>' and not $ops->{'-nonnumeric'} and $v =~ /^[0-9\+\-]*\.[0-9]+/o |
|
1183
|
0 |
0 |
0 |
$leni and length $v > $leni |
|
1230
|
0 |
0 |
0 |
$leni and length $v > $leni |
|
|
0 |
0 |
0 |
$leniSpecified and length $v < $leniSpecified |
|
1261
|
0 |
0 |
0 |
$l > $leni and $v =~ /\./o |
|
1268
|
0 |
0 |
0 |
$l < $leni and $v =~ s/(\d)(\d\d\d)\b/$1,$2/ |
|
1273
|
0 |
0 |
0 |
$l > $leni and $v =~ /\./o |
|
1277
|
0 |
0 |
0 |
$float and $l < $leni |
|
1494
|
1 |
0 |
0 |
$1 < 1000 and $3 < 1000 |
|
1516
|
1 |
0 |
0 |
$indicator =~ /a/i and $hr == 12 |
|
|
0 |
0 |
1 |
$indicator =~ /p/i and $hr != 12 |
|
1572
|
0 |
0 |
0 |
$indicator =~ /a/i and $hr == 12 |
|
|
0 |
0 |
0 |
$indicator =~ /p/i and $hr != 12 |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
592
|
0 |
0 |
1 |
length $v0 > $charsHandled || $leni > 0 && length $v > $leni |
|
605
|
0 |
0 |
0 |
$inpic ||= $ops->{'-infmt'} |
|
611
|
0 |
0 |
0 |
$perltime or length $v == length $inpic and $inpic =~ /^yyyymmdd(?:hhmm(?:ss)?)?$/i |
|
612
|
0 |
0 |
0 |
$fixedLeni || length $inpic |
|
|
0 |
0 |
0 |
$leni ||= $fixedLeni || length $inpic |
|
618
|
0 |
0 |
1 |
$perltime ||= $v =~ /^\d{9,11}$/o ? $v : 0 |
|
621
|
1 |
0 |
0 |
$t or $perltime |
|
622
|
0 |
0 |
0 |
$fixedLeni || length $pic |
|
|
0 |
0 |
0 |
$leni ||= $fixedLeni || length $pic |
|
627
|
0 |
0 |
0 |
$perltime || &timelocal(0, 0, 0, substr($t, 6, 2), substr($t, 4, 2) - 1, substr($t, 0, 4), 0, 0, 0) |
|
635
|
0 |
0 |
0 |
$fixedLeni || length $t |
|
|
0 |
0 |
0 |
$leni ||= $fixedLeni || length $t |
|
659
|
0 |
1 |
0 |
$fixedLeni || length $v |
|
|
0 |
1 |
0 |
$leni ||= $fixedLeni || length $v |
|
667
|
0 |
0 |
0 |
$fixedLeni || length $pic |
|
|
0 |
0 |
0 |
$leni ||= $fixedLeni || length $pic |
|
741
|
0 |
0 |
2 |
$fixedLeni or $leniSpecified |
|
745
|
0 |
0 |
1 |
$fixedLeni or $leniSpecified |
|
747
|
0 |
0 |
1 |
$fixedLeni || $leniSpecified |
|
758
|
3 |
0 |
0 |
$justify ||= !$ops->{'-nonnumeric'} && ($commatize || $float =~ /\$/o || $pic =~ /[\.\,\^\$]/o) ? '>' : '<' |
|
761
|
0 |
0 |
3 |
$fixedLeni or $leniSpecified |
|
776
|
3 |
0 |
0 |
$pic =~ /\./o or $v =~ /\./ |
|
781
|
1 |
1 |
1 |
$v >= 0 or $suffix =~ /^[\_ ]*CR\s*$/io |
|
839
|
9 |
0 |
0 |
!$leniSpecified || $l < $leni |
|
841
|
0 |
0 |
6 |
$fixedLeni or $leniSpecified |
|
845
|
3 |
0 |
0 |
not $ops->{'-truncate'} =~ /no/io or length $t <= $leni |
|
848
|
0 |
0 |
3 |
$fixedLeni || $leniSpecified |
|
859
|
0 |
0 |
0 |
$fixedLeni || $leniSpecified |
|
897
|
0 |
0 |
0 |
!$i || $ops->{'-suffix'} =~ /all/io |
|
908
|
0 |
0 |
0 |
!$i || $ops->{'-suffix'} =~ /all/io |
|
919
|
1 |
0 |
3 |
!$i || $ops->{'-suffix'} =~ /all/io |
|
937
|
0 |
0 |
0 |
!$j || $ops->{'-suffix'} =~ /all/io |
|
1049
|
0 |
0 |
0 |
$outpic ||= $ops->{'-outfmt'} |
|
1065
|
0 |
0 |
0 |
substr($v, index($pic, $i), length $i) || ' ' x length($i) |
|
1413
|
0 |
0 |
0 |
$commatize || $float =~ /\$/o || $pic =~ /[.,\$]/o |
|
|
0 |
0 |
0 |
$justify ||= $commatize || $float =~ /\$/o || $pic =~ /[.,\$]/o ? '>' : '<' |
|
1491
|
0 |
0 |
0 |
$dt =~ s/^(\d\d\d\d\d\d+)(\D+\d+\:?\d+.*)?$/$1/o or $dt =~ s/^(\d{8})(\d{4})/$1/o |
|
1564
|
0 |
0 |
0 |
$timepart =~ s/^(\d\d)(\d\d)//o or $timepart =~ s/^(\d\d?)\:(\d\d?)\:?//o |