| blib/lib/CGI/ExceptionManager/StackTrace.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 24 | 79.1 |
| line | true | false | branch |
|---|---|---|---|
| 27 | 13 | 4 | if (my(@c) = caller $i + 1) |
| 28 | 13 | 0 | if $c[3] |
| 32 | 1 | 3 | if ($message =~ / at ([^ ]+) line (\d+)/ and $1 ne $trace[0]{'file'} || $2 != $trace[0]{'line'}) |
| 49 | 9 | 0 | if (-f $file) |
| 52 | 0 | 9 | $start < 1 ? : |
| 53 | 0 | 9 | unless open my $fh, '<:encoding(utf8)', $file |
| 58 | 9 | 223 | if $cur_line > $end |
| 59 | 160 | 63 | if $cur_line < $start |
| 61 | 9 | 54 | $cur_line == $linenum ? : |
| 79 | 6 | 3 | $$stack{'func'} ? : |
| 9 | 0 | $$stack{'file'} ? : | |
| 105 | 1 | 2 | $args{'renderer'} ? : |