| 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
|
6623 |
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
|
7945 |
4 |
if keys %out > 1 |
|
121
|
137 |
606 |
if ($msg or not $sub) |
|
126
|
1 |
605 |
if ($sub eq 'eval') { } |
|
137
|
0 |
137 |
if $ENV{'NO_TRACE_MASK'} |
|
139
|
0 |
137 |
unless @lines > 1 |
|
151
|
3 |
7212 |
unless ($fields) |
|
156
|
137 |
7075 |
unless $num |
|
157
|
137 |
7075 |
if exists $fields->{'msg'} |
|
161
|
6098 |
1114 |
if $stopped and not $mask->{'restart'} || $mask->{'lock'} |
|
162
|
151 |
963 |
if $mask->{'restart'} |
|
163
|
905 |
12 |
unless $mask->{'hide'} or $mask->{'shift'} or $mask->{'lock'} |
|
165
|
1092 |
22 |
unless ($mask->{'lock'}) |
|
166
|
30 |
1062 |
if $mask->{'1'} |
|
167
|
30 |
1062 |
if $mask->{'2'} |
|
168
|
30 |
1062 |
if $mask->{'3'} |
|
171
|
50 |
1064 |
if ($mask->{'shift'}) { } |
|
|
147 |
917 |
elsif ($mask->{'hide'}) { } |
|
|
40 |
1011 |
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
|
733 |
60 |
unless ($skip or $mask->{'no_start'} and not $out) |
|
189
|
137 |
596 |
if ($error) |
|
198
|
151 |
963 |
if $mask->{'stop'} |
|
201
|
10 |
127 |
if ($shift) |
|
206
|
10 |
0 |
unless $out and $out =~ /at \Q$last->{'file'}\E line $last->{'line'}/ |