line |
true |
false |
branch |
24
|
0 |
9 |
unless $cd->{'clone_func'} =~ /(.+)::(.+)/
|
28
|
0 |
9 |
if $@
|
36
|
1 |
0 |
unless $mn =~ /\A\w+\z/
|
43
|
1 |
1 |
unless $fn =~ /\A\w+(::\w+)*\z/
|
155
|
0 |
11 |
if $opts->{'!debug'}
|
157
|
11 |
0 |
unless ($cd->{'clone_func'})
|
161
|
0 |
11 |
unless $cd->{'clone_func'} =~ /(.+)::(.+)/
|
170
|
28 |
2 |
if ($which eq 'if' or $which eq 'new_if') { }
|
177
|
0 |
0 |
unless (@{$_->[0];})
|
|
0 |
84 |
if ($opts->{'!debug'})
|
178
|
30 |
54 |
$n && $which ne 'new_if' ? :
|
208
|
3 |
8 |
if ($circ)
|
210
|
0 |
3 |
unless $self->can($meth)
|
213
|
0 |
3 |
if ($opts->{'!debug'})
|
220
|
0 |
3 |
unless $o
|
222
|
0 |
3 |
unless $self->can($meth)
|
231
|
5 |
6 |
unless $o
|
233
|
0 |
6 |
unless $self->can($meth)
|
239
|
2 |
7 |
if ($opts->{'!recurse_obj'}) { }
|
251
|
9 |
0 |
unless $o
|
253
|
0 |
0 |
unless $self->can($meth)
|
265
|
3 |
6 |
if $circ
|
266
|
3 |
6 |
if $circ
|
279
|
3 |
6 |
if $circ
|
285
|
0 |
9 |
if $opts->{'!debug'}
|
291
|
0 |
9 |
if ($ENV{'LOG_CLEANSER_CODE'} and log_is_trace())
|
294
|
0 |
0 |
$ENV{'LINENUM'} // 1 ? :
|