| blib/lib/Error/Pure/HTTP/Print.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 10 | 40.0 |
| line | true | false | branch |
|---|---|---|---|
| 31 | 0 | 5 | if (not defined $e) { } |
| 39 | 0 | 5 | if ($stack_ar->[-1]{'class'} eq 'main' and &none(sub { $_ =~ /^eval '/ms unless $_ eq $EVAL; } , map({$_->{'sub'};} @{$stack_ar;}))) { } |
| 40 | 5 | 5 | unless $_ eq $EVAL |
| 44 | 0 | 0 | if ($class eq 'main') |
| 47 | 0 | 0 | if ($class) |