blib/lib/Text/ANSI/BaseUtil.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 82 | 115 | 71.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
135 | 237 | 0 | 0 | $is_mb and $1 |
169 | 5 | 114 | 123 | $s_type and $s_type ne "s" |
170 | 10 | 2 | 0 | $prev_type and $prev_type ne $s_type |
190 | 85 | 29 | 9 | defined $c and not @s |
211 | 84 | 27 | 3 | defined $c and not @s |
224 | 8 | 0 | 17 | defined $c and $c =~ /m\z/ |
314 | 4 | 0 | 0 | $crcode and $_ == 1 |
344 | 6 | 2 | 171 | $j < @terms and $termst[$j] ne "p" |
373 | 105 | 4 | 2 | $pterm =~ /\n/ and $i == $#terms |
398 | 10 | 2 | 109 | $prev_t && $prev_t eq 's' |
429 | 1 | 0 | 2 | $prev_t && $prev_t eq 's' |
447 | 12 | 0 | 94 | $line_has_word and $ws_before |
473 | 1 | 17 | 0 | $ws_before and $optkts |
495 | 2 | 8 | 0 | $line_has_word and $pad |
526 | 6 | 0 | 1 | $is_trunc and $w > $width |
653 | 0 | 0 | 8 | defined $c and $c =~ /m\z/ |
679 | 0 | 0 | 0 | $pmin == $_->[0] and length $t < length $_->[1] |
793 | 1 | 2 | 1 | $i > 1 && !$savedc |
799 | 4 | 0 | 3 | defined $c and $c =~ /m\z/ |
809 | 2 | 0 | 2 | $savedc and $i < @text |
line | l | !l | condition |
---|---|---|---|
39 | 3 | 2 | &max(@lens) // 0 |
100 | 10 | 0 | $width //= 80 |
101 | 3 | 7 | $opts //= {} |
160 | 237 | 25 | $s_type //= "" |
285 | 0 | 10 | $opts->{'tab_width'} // 8 |
291 | 0 | 10 | $opts->{'keep_trailing_space'} // 0 |
336 | 2 | 8 | $fli //= "" |
337 | 2 | 8 | $fliw //= 0 |
355 | 2 | 8 | $sli //= "" |
356 | 2 | 8 | $sliw //= 0 |
523 | 1 | 6 | $padchar //= " " |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
161 | 5 | 237 | 20 | $only_code or defined $s |
191 | 108 | 7 | 8 | @s or @ch |
212 | 109 | 3 | 2 | @s or @ch |
333 | 0 | 0 | 0 | $fli //= $pterm |
334 | 0 | 0 | 0 | $fliw //= $is_mb ? Text::WideChar::Util::_mbs_indent_width($fli, $tw) : _indent_width($fli, $tw) |
394 | 121 | 0 | 3 | $termw <= $width - $sliw or $termt eq "c" |
443 | 10 | 11 | 103 | not defined $maxww or $maxww < $wordw |
444 | 10 | 4 | 110 | not defined $minww or $minww > $wordw |
679 | 0 | 0 | 0 | $pmin > $_->[0] or $pmin == $_->[0] and length $t < length $_->[1] |
718 | 0 | 4 | 5 | $pos > $npos2 or $pos2 < $npos |
4 | 0 | 5 | $pos > $npos2 or $pos2 < $npos or not $found |