| line |
!l |
l&&!r |
l&&r |
condition |
|
590
|
1 |
0 |
0 |
length $v0 > $charsHandled || $leni > 0 && length $v > $leni and not $ops->{'-truncate'} =~ /no/io |
|
609
|
0 |
0 |
0 |
length $v == length $inpic and $inpic =~ /^yyyymmdd(?:hhmm(?:ss)?)?$/i |
|
634
|
0 |
0 |
0 |
$leni and length $t > $leni |
|
|
0 |
0 |
0 |
$leni and length $t > $leni and not $ops->{'-truncate'} =~ /no/io |
|
658
|
0 |
1 |
0 |
$leni and length $v > $leni |
|
|
1 |
0 |
0 |
$leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io |
|
675
|
1 |
0 |
0 |
$leni and length $v > $leni |
|
|
1 |
0 |
0 |
$leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io |
|
705
|
1 |
0 |
0 |
$leni and length $t > $leni |
|
|
1 |
0 |
0 |
$leni and length $t > $leni and not $ops->{'-truncate'} =~ /no/io |
|
715
|
0 |
0 |
0 |
$leni and length $v > $leni |
|
|
0 |
0 |
0 |
$leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io |
|
746
|
0 |
1 |
0 |
not $fixedLeni || $leniSpecified and $float =~ s/\(//o |
|
767
|
0 |
0 |
3 |
$decPic and not $ops->{'-nonnumeric'} |
|
782
|
3 |
0 |
0 |
$l > $wholeLeni and $float |
|
|
3 |
0 |
0 |
$l > $wholeLeni and $float and $float ne '(' |
|
787
|
3 |
0 |
0 |
length $t > $leni and $t =~ /\./o |
|
799
|
0 |
0 |
0 |
$l > $leni and $float |
|
803
|
0 |
0 |
0 |
length $t > $leni and $t =~ /\./o |
|
822
|
0 |
3 |
4 |
$l < $leni and $float |
|
824
|
0 |
3 |
1 |
not $ops->{'-nonnumeric'} and $t2 eq '(' |
|
|
3 |
1 |
0 |
not $ops->{'-nonnumeric'} and $t2 eq '(' and $v >= 0 |
|
829
|
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'} |
|
833
|
3 |
0 |
0 |
$l > $leni and $t =~ /\./o |
|
837
|
0 |
3 |
6 |
!$leniSpecified || $l < $leni and $t =~ s/(\d)(\d\d\d)\b/$1,$2/ |
|
843
|
3 |
0 |
0 |
$ops->{'-truncate'} =~ /er/io and length $t > $leni |
|
846
|
0 |
3 |
0 |
not $fixedLeni || $leniSpecified and $float =~ /\(/o |
|
857
|
0 |
0 |
0 |
not $fixedLeni || $leniSpecified and $float =~ /\(/o |
|
976
|
0 |
0 |
0 |
$l > $leni and $v =~ /\./o |
|
983
|
0 |
0 |
0 |
$l < $leni and $v =~ s/(\d)(\d\d\d)\b/$1,$2/ |
|
990
|
0 |
0 |
0 |
$float and $l < $leni |
|
1035
|
1 |
0 |
0 |
$leni and length $v > $leni |
|
|
1 |
0 |
0 |
$leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io |
|
1052
|
0 |
0 |
0 |
$t and $outpic |
|
1058
|
0 |
0 |
0 |
$outpic and not $outpic =~ /^yyyymmdd(?:hhmm(?:ss)?)?$/i |
|
1073
|
0 |
0 |
0 |
$leni and length $t > $leni |
|
|
0 |
0 |
0 |
$leni and length $t > $leni and not $ops->{'-truncate'} =~ /no/io |
|
1082
|
0 |
0 |
0 |
$leni and length $v > $leni |
|
|
0 |
0 |
0 |
$leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io |
|
1108
|
0 |
0 |
0 |
$leni and length $v > $leni |
|
|
0 |
0 |
0 |
$leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io |
|
1116
|
0 |
0 |
0 |
$leni and length $v > $leni |
|
|
0 |
0 |
0 |
$leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io |
|
1129
|
0 |
0 |
0 |
$special =~ /\(/o and $v =~ /\(/o |
|
|
0 |
0 |
0 |
$suffix =~ /^[\_ ]*CR\s*$/o and $v =~ s/\s*CR\s*$//o |
|
1161
|
0 |
0 |
0 |
not $pic =~ /\./o and $v =~ /\./ |
|
|
0 |
0 |
0 |
not $pic =~ /\./o and $v =~ /\./ and $v =~ /^[\+\-\d\. ]+$/o |
|
1172
|
0 |
0 |
0 |
$leniSpecified and $leni > $leniSpecified |
|
1173
|
0 |
0 |
0 |
$leni and length $v > $leni |
|
1174
|
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 |
|
1182
|
0 |
0 |
0 |
$leni and length $v > $leni |
|
1229
|
0 |
0 |
0 |
$leni and length $v > $leni |
|
|
0 |
0 |
0 |
$leniSpecified and length $v < $leniSpecified |
|
1260
|
0 |
0 |
0 |
$l > $leni and $v =~ /\./o |
|
1267
|
0 |
0 |
0 |
$l < $leni and $v =~ s/(\d)(\d\d\d)\b/$1,$2/ |
|
1272
|
0 |
0 |
0 |
$l > $leni and $v =~ /\./o |
|
1276
|
0 |
0 |
0 |
$float and $l < $leni |
|
1493
|
1 |
0 |
0 |
$1 < 1000 and $3 < 1000 |
|
1515
|
1 |
0 |
0 |
$indicator =~ /a/i and $hr == 12 |
|
|
0 |
0 |
1 |
$indicator =~ /p/i and $hr != 12 |
|
1571
|
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 |
|
590
|
0 |
0 |
1 |
length $v0 > $charsHandled || $leni > 0 && length $v > $leni |
|
603
|
0 |
0 |
0 |
$inpic ||= $ops->{'-infmt'} |
|
609
|
0 |
0 |
0 |
$perltime or length $v == length $inpic and $inpic =~ /^yyyymmdd(?:hhmm(?:ss)?)?$/i |
|
610
|
0 |
0 |
0 |
$fixedLeni || length $inpic |
|
|
0 |
0 |
0 |
$leni ||= $fixedLeni || length $inpic |
|
616
|
0 |
0 |
1 |
$perltime ||= $v =~ /^\d{9,11}$/o ? $v : 0 |
|
619
|
1 |
0 |
0 |
$t or $perltime |
|
620
|
0 |
0 |
0 |
$fixedLeni || length $pic |
|
|
0 |
0 |
0 |
$leni ||= $fixedLeni || length $pic |
|
625
|
0 |
0 |
0 |
$perltime || &timelocal(0, 0, 0, substr($t, 6, 2), substr($t, 4, 2) - 1, substr($t, 0, 4), 0, 0, 0) |
|
633
|
0 |
0 |
0 |
$fixedLeni || length $t |
|
|
0 |
0 |
0 |
$leni ||= $fixedLeni || length $t |
|
657
|
0 |
1 |
0 |
$fixedLeni || length $v |
|
|
0 |
1 |
0 |
$leni ||= $fixedLeni || length $v |
|
665
|
0 |
0 |
0 |
$fixedLeni || length $pic |
|
|
0 |
0 |
0 |
$leni ||= $fixedLeni || length $pic |
|
740
|
0 |
0 |
2 |
$fixedLeni or $leniSpecified |
|
744
|
0 |
0 |
1 |
$fixedLeni or $leniSpecified |
|
746
|
0 |
0 |
1 |
$fixedLeni || $leniSpecified |
|
757
|
0 |
0 |
0 |
$commatize || $float =~ /\$/o || $pic =~ /[\.\,\^\$]/o |
|
|
3 |
0 |
0 |
$justify ||= $commatize || $float =~ /\$/o || $pic =~ /[\.\,\^\$]/o ? '>' : '<' |
|
759
|
0 |
0 |
3 |
$fixedLeni or $leniSpecified |
|
774
|
3 |
0 |
0 |
$pic =~ /\./o or $v =~ /\./ |
|
779
|
1 |
1 |
1 |
$v >= 0 or $suffix =~ /^[\_ ]*CR\s*$/io |
|
837
|
9 |
0 |
0 |
!$leniSpecified || $l < $leni |
|
839
|
0 |
0 |
6 |
$fixedLeni or $leniSpecified |
|
843
|
3 |
0 |
0 |
not $ops->{'-truncate'} =~ /no/io or length $t <= $leni |
|
846
|
0 |
0 |
3 |
$fixedLeni || $leniSpecified |
|
857
|
0 |
0 |
0 |
$fixedLeni || $leniSpecified |
|
895
|
0 |
0 |
0 |
!$i || $ops->{'-suffix'} =~ /all/io |
|
906
|
0 |
0 |
0 |
!$i || $ops->{'-suffix'} =~ /all/io |
|
917
|
1 |
0 |
3 |
!$i || $ops->{'-suffix'} =~ /all/io |
|
935
|
0 |
0 |
0 |
!$j || $ops->{'-suffix'} =~ /all/io |
|
1047
|
0 |
0 |
0 |
$outpic ||= $ops->{'-outfmt'} |
|
1063
|
0 |
0 |
0 |
substr($v, index($pic, $i), length $i) || ' ' x length($i) |
|
1412
|
0 |
0 |
0 |
$commatize || $float =~ /\$/o || $pic =~ /[.,\$]/o |
|
|
0 |
0 |
0 |
$justify ||= $commatize || $float =~ /\$/o || $pic =~ /[.,\$]/o ? '>' : '<' |
|
1490
|
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 |
|
1563
|
0 |
0 |
0 |
$timepart =~ s/^(\d\d)(\d\d)//o or $timepart =~ s/^(\d\d?)\:(\d\d?)\:?//o |