blib/lib/Tags/Utils/Preserve.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 6 | 6 | 100.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
38 | 79 | 9 | 8 | scalar @{$self->{'preserved'};} and &any(sub { $tag eq $_; } , @{$$self{"preserved"};}) |
57 | 75 | 2 | 6 | scalar @{$stack;} and $tag eq $stack->[$LAST_INDEX] |