| line |
true |
false |
branch |
|
13
|
0 |
2 |
unless *carp_longmess = 'Carp'->can('longmess') |
|
34
|
6 |
8 |
if ($arg =~ /^-(.+)$/) { } |
|
|
0 |
8 |
elsif ($arg =~ /^_/) { } |
|
47
|
2 |
5 |
if delete $flags{'global'} |
|
48
|
2 |
5 |
if delete $flags{'wrap'} |
|
51
|
6 |
1 |
unless @bad |
|
62
|
26 |
0 |
if $caller[3] =~ /^Carp::(confess|longmess|cluck)$/ |
|
69
|
26 |
0 |
if $caller[3] =~ /^Carp::(confess|longmess|cluck)$/ |
|
89
|
0 |
1 |
if $sigwarn |
|
90
|
0 |
1 |
if $sigdie |
|
102
|
6120 |
1326 |
if ($line =~ /^(\s*)([^\(]+)\((.*)\) called at (.+) line (\d+)\.?$/) { } |
|
|
1054 |
272 |
elsif ($line =~ /^(\s*)eval \{\.\.\.\} called at (.+) line (\d+)\.?$/) { } |
|
|
268 |
4 |
elsif ($line =~ /^(\s*)(.*) at (.+) line (\d+)\.?$/) { } |
|
112
|
7442 |
4 |
if keys %out > 1 |
|
121
|
137 |
495 |
if ($msg or not $sub) |
|
126
|
1 |
494 |
if ($sub eq 'eval') { } |
|
137
|
0 |
137 |
if $ENV{'NO_TRACE_MASK'} |
|
139
|
0 |
137 |
unless @lines > 1 |
|
151
|
3 |
6819 |
unless ($fields) |
|
156
|
137 |
6682 |
unless $num |
|
157
|
137 |
6682 |
if exists $fields->{'msg'} |
|
161
|
5836 |
983 |
if $stopped and not $mask->{'restart'} || $mask->{'lock'} |
|
162
|
20 |
963 |
if $mask->{'restart'} |
|
163
|
774 |
12 |
unless $mask->{'hide'} or $mask->{'shift'} or $mask->{'lock'} |
|
165
|
961 |
22 |
unless ($mask->{'lock'}) |
|
166
|
30 |
931 |
if $mask->{'1'} |
|
167
|
30 |
931 |
if $mask->{'2'} |
|
168
|
30 |
931 |
if $mask->{'3'} |
|
171
|
50 |
933 |
if ($mask->{'shift'}) { } |
|
|
147 |
786 |
elsif ($mask->{'hide'}) { } |
|
|
40 |
860 |
elsif ($skip and not --$skip and $shift) { } |
|
173
|
0 |
50 |
$skip || $mask->{'lock'} ? : |
|
176
|
50 |
97 |
$skip || $mask->{'lock'} ? : |
|
179
|
40 |
0 |
unless ($mask->{'lock'}) |
|
188
|
622 |
60 |
unless ($skip or $mask->{'no_start'} and not $out) |
|
189
|
137 |
485 |
if ($error) |
|
198
|
151 |
832 |
if $mask->{'stop'} |
|
201
|
10 |
127 |
if ($shift) |
|
206
|
10 |
0 |
unless $out and $out =~ /at \Q$last->{'file'}\E line $last->{'line'}/ |