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 |