| blib/lib/App/ansifold.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 17 | 39 | 43.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 180 | 7 | 0 | 13 | @ARGV > 0 and $ARGV[0] =~ /^\d+$/u |
| 198 | 148 | 0 | 0 | defined $_ and length $_ > 1 |
| 278 | 2 | 71 | 0 | not $app->padding and s/\A(\n+)//u |
| 287 | 73 | 0 | 0 | $app->{'indent_pat'} and /^$app->{'indent_pat'}/pu |
| line | l | !l | condition |
|---|---|---|---|
| 199 | 0 | 0 | charnames::string_vianame($_) || die("${_}: invalid name\n") |
| 228 | 0 | 0 | $2 // 1 |
| 372 | 5 | 3 | $end // (last) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 194 | 74 | 0 | 0 | $app->separate //= $DEFAULT_SEPARATE |
| 210 | 0 | 0 | 0 | $2 // $1 |
| 269 | 74 | 0 | 0 | eval sprintf(""%s"", $app->separate) // do { warn $@ =~ s/ at .*//ru; $DEFAULT_SEPARATE } |
| 306 | 109 | 0 | 0 | not $app->padding or $w < 0 |
| 307 | 108 | 0 | 1 | $chops[$i] //= " " x $w |
| 336 | 18 | 0 | 0 | shift() // qr/\R/u |
| 374 | 1 | 3 | 3 | @width == 0 or $width[-1] ne "" |