| blib/lib/App/sdif/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 6 | 11 | 54.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 132 | 147 | 84 | 0 | $mark ne $stack[-1]->lastlabel and $stack[-1]->exists($mark) || !($stack[-1]->lastlabel =~ /[^+]/u) || $stack[-1]->lastlabel =~ /[+]/u && !($mark =~ /[+]/u) |
| line | l | !l | condition |
|---|---|---|---|
| 91 | 12 | 3 | $opt->{'prefix'} // "" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 57 | 0 | 0 | 0 | $regex[$n] //= do { my $regex = sprintf("^(?:.{%d}-|(?=.*\\+).{%d}[ ])", $n, $n); qr/$regex/u } |
| 132 | 30 | 0 | 54 | $stack[-1]->exists($mark) || !($stack[-1]->lastlabel =~ /[^+]/u) || $stack[-1]->lastlabel =~ /[+]/u && !($mark =~ /[+]/u) |