| 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
|
2716 |
671 |
if ($line =~ /^(\s*)([^\(]+)\((.*)\) called at (.+) line (\d+)\.?$/) { } |
|
|
399 |
272 |
elsif ($line =~ /^(\s*)eval \{\.\.\.\} called at (.+) line (\d+)\.?$/) { } |
|
|
268 |
4 |
elsif ($line =~ /^(\s*)(.*) at (.+) line (\d+)\.?$/) { } |
|
112
|
3383 |
4 |
if keys %out > 1 |
|
121
|
137 |
501 |
if ($msg or not $sub) |
|
126
|
2 |
499 |
if ($sub eq 'eval') { } |
|
137
|
0 |
137 |
if $ENV{'NO_TRACE_MASK'} |
|
139
|
0 |
137 |
unless @lines > 1 |
|
152
|
3 |
2760 |
unless ($fields) |
|
157
|
137 |
2623 |
unless $num |
|
158
|
137 |
2623 |
if exists $fields->{'msg'} |
|
163
|
512 |
2248 |
if $paused and not $mask->{'restart'} || $mask->{'lock'} |
|
164
|
20 |
2228 |
if $mask->{'restart'} |
|
166
|
1260 |
988 |
if $stopped and not $mask->{'lock'} |
|
168
|
780 |
12 |
unless $mask->{'hide'} or $mask->{'shift'} or $mask->{'lock'} |
|
170
|
966 |
22 |
unless ($mask->{'lock'}) |
|
171
|
30 |
936 |
if $mask->{'1'} |
|
172
|
30 |
936 |
if $mask->{'2'} |
|
173
|
30 |
936 |
if $mask->{'3'} |
|
176
|
50 |
938 |
if ($mask->{'shift'}) { } |
|
|
146 |
792 |
elsif ($mask->{'hide'}) { } |
|
|
40 |
866 |
elsif ($skip and not --$skip and $shift) { } |
|
178
|
0 |
50 |
$skip || $mask->{'lock'} ? : |
|
181
|
50 |
96 |
$skip || $mask->{'lock'} ? : |
|
184
|
40 |
0 |
unless ($mask->{'lock'}) |
|
193
|
628 |
60 |
unless ($skip or $mask->{'no_start'} and not $out) |
|
194
|
137 |
491 |
if ($error) |
|
203
|
100 |
888 |
if $mask->{'stop'} |
|
204
|
50 |
938 |
if $mask->{'pause'} |
|
207
|
10 |
127 |
if ($shift) |
|
212
|
10 |
0 |
unless $out and $out =~ /at \Q$last->{'file'}\E line $last->{'line'}/ |