blib/lib/Error/Pure/Die.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 1 | 3 | 33.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
26 | 0 | 14 | 0 | $stack_ar->[-1]{'class'} eq "main" and &none(sub { $_ =~ /^eval '/ms unless $_ eq $EVAL; } , map({$_->{'sub'};} @{$stack_ar;})) |