line |
true |
false |
branch |
38
|
0 |
0 |
if @_ % 2 |
42
|
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.]+$/ |