Condition Coverage

blib/lib/String/PictureFormat.pm
Criterion Covered Total %
condition 52 320 16.2


and 3 conditions

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

or 2 conditions

line l !l condition
750 3 0 $dec ||= '.'
1148 0 0 $dec ||= '.'
1326 1 0 $dec ||= '.'
1547 0 0 $2 || ''

or 3 conditions

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