| blib/lib/Error/Show.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 38 | 90 | 42.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 139 | 0 | 0 | 0 | not $pid and $@ |
| 285 | 25 | 0 | 0 | $counter >= $limit and $limit > 0 |
| 419 | 0 | 10 | 0 | defined $_[0] and $_[0] eq __PACKAGE__ |
| 466 | 0 | 5 | 3 | $do_internal_frames and @$frames == 0 |
| 573 | 0 | 0 | 0 | not $pid and $@ |
| line | l | !l | condition |
|---|---|---|---|
| 41 | 4 | 0 | $Exporter::ExportLevel // 0 |
| 237 | 0 | 9 | $entry{$1} //= [] |
| 283 | 0 | 24 | $opts{'limit'} // 100 |
| 293 | 4 | 0 | $prog // "" |
| 371 | 25 | 0 | $opts{'current_indent'} // "" |
| 432 | 0 | 8 | $opts{'pre_lines'} //= 5 |
| 433 | 0 | 8 | $opts{'post_lines'} //= 5 |
| 434 | 0 | 8 | $opts{'start_offset'} //= 0 |
| 435 | 0 | 8 | $opts{'end_offset'} //= 0 |
| 436 | 0 | 8 | $opts{'translation'} //= 0 |
| 437 | 0 | 8 | $opts{'indent'} //= " " |
| 438 | 0 | 8 | $opts{'file'} //= "" |
| 463 | 5 | 3 | $frames ||= [] |
| 509 | 0 | 16 | builtin::blessed($e) // "" |
| 533 | 0 | 16 | $a->[11] //= "" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 125 | 0 | 0 | 0 | $file eq "-e" or $file eq "-E" |
| 0 | 0 | 0 | $file eq "-e" or $file eq "-E" or $file eq "-" | |
| 180 | 0 | 0 | 0 | $^S or not defined $^S |
| 219 | 0 | 8 | 0 | $error ||= "$error_in" |
| 230 | 9 | 0 | 0 | /at (.*?) line (\d+)/u or /Missing right curly or square bracket at (.*?) (\d+) at end of line/u |
| 458 | 0 | 5 | 3 | $frames ||= eval { do { $error->{'frames'} } } |
| 459 | 5 | 0 | 3 | $frames ||= eval { do { [$error->trace->frames] } } |
| 460 | 5 | 0 | 3 | $frames ||= eval { do { $error->caller_stack } } |
| 461 | 5 | 0 | 3 | $frames ||= eval { do { [$error->getStackTrace] } } |
| 462 | 5 | 0 | 3 | $frames ||= eval { do { \$error->frames } } |
| 488 | 8 | 0 | 0 | not defined $depth or $depth < 0 |
| 8 | 0 | 0 | not defined $depth or $depth < 0 or $depth > @$frames | |
| 604 | 0 | 2 | 0 | $_[1] // caller |
| 630 | 1 | 0 | 1 | not defined $sub or $error |
| 688 | 2 | 0 | 0 | $error //= $@ |