| line |
true |
false |
branch |
|
39
|
1 |
9 |
if ($clean) |
|
51
|
7 |
72 |
if (not defined $msg[$i]) { } |
|
59
|
6 |
49 |
unless (@msg) |
|
78
|
2 |
1 |
unless (defined $index) |
|
89
|
2 |
1 |
unless (defined $index) |
|
109
|
86 |
2 |
if (-e $prog) |
|
114
|
2 |
86 |
if (defined $evaltext) { } |
|
|
41 |
45 |
elsif ($sub eq '(eval)') { } |
|
115
|
0 |
2 |
if ($is_require) { } |
|
120
|
2 |
0 |
if ($MAX_EVAL and length $evaltext > $MAX_EVAL) |
|
136
|
43 |
2 |
if ($sub =~ /^Error::Pure::(.*)err$/msx) |
|
139
|
0 |
45 |
if ($PROGRAM and $prog =~ /^\(eval/ms) |
|
146
|
45 |
43 |
if ($hargs) |
|
148
|
0 |
45 |
if ($MAX_ARGS and $#args > $MAX_ARGS) |
|
155
|
6 |
35 |
unless (defined $arg) |
|
159
|
0 |
35 |
if (ref $arg) |
|
165
|
0 |
35 |
if ($MAX_ARG_LEN and length $arg > $MAX_ARG_LEN) |
|
170
|
33 |
2 |
unless ($arg =~ /^-?[\d.]+$/ms) |