| line |
true |
false |
branch |
|
23
|
0 |
18 |
unless @text |
|
31
|
11 |
7 |
if ($text[0] =~ s/ at (.+) line (\d+)\.?$//) { } |
|
|
4 |
6 |
elsif (@text > 1 and $text[1] =~ /^\s*at (.+) line (\d+)\.?$/) { } |
|
41
|
12 |
6 |
unless $text[0] =~ s/\s*[.:;]?\s*$err\s*$// |
|
44
|
0 |
18 |
unless length $msg[0] |
|
48
|
15 |
0 |
if (/^\s*(.*?)\s+called at (.*?) line (\d+)\s*$/) { } |
|
53
|
5 |
13 |
@stack ? : |
|
58
|
3 |
9 |
@stack ? : |
|
|
6 |
12 |
$opt{'errno'} ? : |
|
76
|
2 |
3 |
defined $sub && $sub =~ s/^([\w:]+)\:\:// ? : |
|
82
|
0 |
2 |
unless my($func, $fn, $linenr) = /^\s+(.*?)\(\)\s+called at (.*?) line ([0-9]+)$/ |
|
86
|
1 |
4 |
if @stack |
|
89
|
1 |
4 |
@stack ? : |
|
|
0 |
5 |
$opts{'errno'} ? : |
|
118
|
5 |
0 |
if $exception->isa('DBIx::Class::Exception') |
|
121
|
0 |
0 |
if $exception->isa('XML::LibXML::Error') |
|
130
|
0 |
0 |
$errno ? : |