blib/lib/Error/Pure/NoDie.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 4 | 4 | 100.0 |
line | true | false | branch |
---|---|---|---|
32 | 2 | 5 | if ($stack_ar->[-1]{'class'} eq 'main' and &none(sub { $_ =~ /^eval '/ms unless $_ eq $EVAL; } , map({$_->{'sub'};} @{$stack_ar;}))) { } |
33 | 8 | 5 | unless $_ eq $EVAL |