Condition Coverage

blib/lib/String/PictureFormat.pm
Criterion Covered Total %
condition 51 296 17.2


and 3 conditions

line !l l&&!r l&&r condition
561 1 0 0 length $v0 > $charsHandled || $leni > 0 && length $v > $leni and not $ops->{'-truncate'} =~ /no/io
589 0 0 0 $leni and length $t > $leni
0 0 0 $leni and length $t > $leni and not $ops->{'-truncate'} =~ /no/io
613 0 1 0 $leni and length $t > $leni
1 0 0 $leni and length $t > $leni and not $ops->{'-truncate'} =~ /no/io
630 1 0 0 $leni and length $v > $leni
1 0 0 $leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io
660 1 0 0 $leni and length $t > $leni
1 0 0 $leni and length $t > $leni and not $ops->{'-truncate'} =~ /no/io
670 0 0 0 $leni and length $v > $leni
0 0 0 $leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io
701 0 1 0 not $fixedLeni || $leniSpecified and $float =~ s/\(//o
722 0 0 3 $decPic and not $ops->{'-nonnumeric'}
737 3 0 0 $l > $wholeLeni and $float
3 0 0 $l > $wholeLeni and $float and $float ne '('
742 3 0 0 length $t > $leni and $t =~ /\./o
754 0 0 0 $l > $leni and $float
758 0 0 0 length $t > $leni and $t =~ /\./o
777 0 3 4 $l < $leni and $float
779 0 3 1 not $ops->{'-nonnumeric'} and $t2 eq '('
3 1 0 not $ops->{'-nonnumeric'} and $t2 eq '(' and $v >= 0
784 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'}
788 3 0 0 $l > $leni and $t =~ /\./o
792 0 3 6 !$leniSpecified || $l < $leni and $t =~ s/(\d)(\d\d\d)\b/$1,$2/
798 3 0 0 $ops->{'-truncate'} =~ /er/io and length $t > $leni
801 0 3 0 not $fixedLeni || $leniSpecified and $float =~ /\(/o
812 0 0 0 not $fixedLeni || $leniSpecified and $float =~ /\(/o
931 0 0 0 $l > $leni and $v =~ /\./o
938 0 0 0 $l < $leni and $v =~ s/(\d)(\d\d\d)\b/$1,$2/
945 0 0 0 $float and $l < $leni
990 1 0 0 $leni and length $v > $leni
1 0 0 $leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io
999 0 0 0 $t =~ /^\d+$/o and $ops->{'-outfmt'}
1015 0 0 0 $leni and length $t > $leni
0 0 0 $leni and length $t > $leni and not $ops->{'-truncate'} =~ /no/io
1024 0 0 0 $leni and length $v > $leni
0 0 0 $leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io
1050 0 0 0 $leni and length $v > $leni
0 0 0 $leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io
1058 0 0 0 $leni and length $v > $leni
0 0 0 $leni and length $v > $leni and not $ops->{'-truncate'} =~ /no/io
1071 0 0 0 $special =~ /\(/o and $v =~ /\(/o
0 0 0 $suffix =~ /^[\_ ]*CR\s*$/o and $v =~ s/\s*CR\s*$//o
1103 0 0 0 not $pic =~ /\./o and $v =~ /\./
0 0 0 not $pic =~ /\./o and $v =~ /\./ and $v =~ /^[\+\-\d\. ]+$/o
1114 0 0 0 $leniSpecified and $leni > $leniSpecified
1115 0 0 0 $leni and length $v > $leni
1116 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
1124 0 0 0 $leni and length $v > $leni
1171 0 0 0 $leni and length $v > $leni
0 0 0 $leniSpecified and length $v < $leniSpecified
1202 0 0 0 $l > $leni and $v =~ /\./o
1209 0 0 0 $l < $leni and $v =~ s/(\d)(\d\d\d)\b/$1,$2/
1214 0 0 0 $l > $leni and $v =~ /\./o
1218 0 0 0 $float and $l < $leni
1434 1 0 0 $1 < 1000 and $3 < 1000
1456 1 0 0 $indicator =~ /a/i and $hr == 12
0 0 1 $indicator =~ /p/i and $hr != 12
1512 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
705 3 0 $dec ||= '.'
1090 0 0 $dec ||= '.'
1269 1 0 $dec ||= '.'
1488 0 0 $2 || ''

or 3 conditions

line l !l&&r !l&&!r condition
561 0 0 1 length $v0 > $charsHandled || $leni > 0 && length $v > $leni
573 1 0 0 $t or $perltime
574 0 0 0 $fixedLeni || length $pic
0 0 0 $leni ||= $fixedLeni || length $pic
579 0 0 0 $perltime || &timelocal(0, 0, 0, substr($t, 6, 2), substr($t, 4, 2) - 1, substr($t, 0, 4), 0, 0, 0)
588 0 0 0 $fixedLeni || length $t
0 0 0 $leni ||= $fixedLeni || length $t
612 0 1 0 $fixedLeni || length $v
0 1 0 $leni ||= $fixedLeni || length $v
620 0 0 0 $fixedLeni || length $pic
0 0 0 $leni ||= $fixedLeni || length $pic
695 0 0 2 $fixedLeni or $leniSpecified
699 0 0 1 $fixedLeni or $leniSpecified
701 0 0 1 $fixedLeni || $leniSpecified
712 0 0 0 $commatize || $float =~ /\$/o || $pic =~ /[\.\,\^\$]/o
3 0 0 $justify ||= $commatize || $float =~ /\$/o || $pic =~ /[\.\,\^\$]/o ? '>' : '<'
714 0 0 3 $fixedLeni or $leniSpecified
729 3 0 0 $pic =~ /\./o or $v =~ /\./
734 1 1 1 $v >= 0 or $suffix =~ /^[\_ ]*CR\s*$/io
792 9 0 0 !$leniSpecified || $l < $leni
794 0 0 6 $fixedLeni or $leniSpecified
798 3 0 0 not $ops->{'-truncate'} =~ /no/io or length $t <= $leni
801 0 0 3 $fixedLeni || $leniSpecified
812 0 0 0 $fixedLeni || $leniSpecified
850 0 0 0 !$i || $ops->{'-suffix'} =~ /all/io
861 0 0 0 !$i || $ops->{'-suffix'} =~ /all/io
872 1 0 3 !$i || $ops->{'-suffix'} =~ /all/io
890 0 0 0 !$j || $ops->{'-suffix'} =~ /all/io
1005 0 0 0 substr($v, index($pic, $i), length $i) || ' ' x length($i)
1355 0 0 0 $commatize || $float =~ /\$/o || $pic =~ /[.,\$]/o
0 0 0 $justify ||= $commatize || $float =~ /\$/o || $pic =~ /[.,\$]/o ? '>' : '<'
1431 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
1504 0 0 0 $timepart =~ s/^(\d\d)(\d\d)//o or $timepart =~ s/^(\d\d?)\:(\d\d?)\:?//o