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