line |
true |
false |
branch |
26
|
0 |
9 |
unless $cd->{'clone_func'} =~ /(.+)::(.+)/
|
30
|
0 |
9 |
if $@
|
38
|
1 |
0 |
unless $mn =~ /\A\w+\z/
|
45
|
1 |
1 |
unless $fn =~ /\A\w+(::\w+)*\z/
|
157
|
0 |
11 |
if $opts->{'!debug'}
|
159
|
11 |
0 |
unless ($cd->{'clone_func'})
|
164
|
0 |
11 |
unless $cd->{'clone_func'} =~ /(.+)::(.+)/
|
173
|
28 |
2 |
if ($which eq 'if' or $which eq 'new_if') { }
|
180
|
0 |
0 |
unless (@{$_->[0];})
|
|
0 |
84 |
if ($opts->{'!debug'})
|
181
|
30 |
54 |
$n && $which ne 'new_if' ? :
|
211
|
3 |
8 |
if ($circ)
|
213
|
0 |
3 |
unless $self->can($meth)
|
216
|
0 |
3 |
if ($opts->{'!debug'})
|
223
|
0 |
3 |
unless $o
|
225
|
0 |
3 |
unless $self->can($meth)
|
234
|
5 |
6 |
unless $o
|
236
|
0 |
6 |
unless $self->can($meth)
|
242
|
2 |
7 |
if ($opts->{'!recurse_obj'}) { }
|
254
|
9 |
0 |
unless $o
|
256
|
0 |
0 |
unless $self->can($meth)
|
268
|
3 |
6 |
if $circ
|
269
|
3 |
6 |
if $circ
|
282
|
3 |
6 |
if $circ
|
288
|
0 |
9 |
if $opts->{'!debug'}
|
294
|
0 |
9 |
if ($ENV{'LOG_CLEANSER_CODE'} and log_is_trace())
|
297
|
0 |
0 |
$ENV{'LINENUM'} // 1 ? :
|