| line |
true |
false |
branch |
|
38
|
0 |
0 |
if @_ % 2 |
|
43
|
0 |
0 |
unless exists $$options{lc $_[$x]} |
|
57
|
0 |
0 |
unless $msub |
|
63
|
0 |
0 |
unless $msub |
|
65
|
0 |
0 |
if ($l_msub eq 'main') |
|
70
|
0 |
0 |
if ($options->{'_special'}) |
|
74
|
0 |
0 |
if ($options->{'trace_pid'}) |
|
83
|
0 |
0 |
if (/^E/) |
|
89
|
0 |
0 |
if (/^W/) |
|
95
|
0 |
0 |
if (/^I/) |
|
101
|
0 |
0 |
if (/^D/) |
|
112
|
0 |
0 |
if ($l_msub and $msub ne $l_msub) { } |
|
120
|
0 |
0 |
if $options->{'trace_stack'} |
|
123
|
0 |
0 |
if ($to_std) |
|
124
|
0 |
0 |
if ($to_file) |
|
125
|
0 |
0 |
if (open OUT, '>>' . $options->{'trace_file'}) |
|
127
|
0 |
0 |
if ($options->{'trace_stack'} and $mtype eq 'E' or $options->{'trace_stack'} > 1 and $mtype eq 'W' or $options->{'trace_stack'} > 2 and $mtype eq 'I' or $options->{'trace_stack'} > 3 and $mtype eq 'D') |
|
159
|
0 |
0 |
if (defined $eval) { } |
|
|
0 |
0 |
elsif ($sub eq '(eval)') { } |
|
160
|
0 |
0 |
if ($require) { } |
|
165
|
0 |
0 |
if ($MAX_EVAL and length $eval > $MAX_EVAL) |
|
175
|
0 |
0 |
if ($hargs) |
|
179
|
0 |
0 |
if ($MAX_ARGS and @a > $MAX_ARGS) |
|
185
|
0 |
0 |
unless defined $_ |
|
186
|
0 |
0 |
if (ref $_) |
|
192
|
0 |
0 |
if ($MAX_ARG_LEN and length $_ > $MAX_ARG_LEN) |
|
196
|
0 |
0 |
unless /^-?[\d.]+$/ |