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/
|
156
|
11 |
0 |
unless ($cd->{'clone_func'})
|
160
|
0 |
11 |
unless $cd->{'clone_func'} =~ /(.+)::(.+)/
|
169
|
28 |
2 |
if ($which eq 'if' or $which eq 'new_if') { }
|
177
|
30 |
54 |
$n && $which ne 'new_if' ? :
|
207
|
3 |
8 |
if ($circ)
|
209
|
0 |
3 |
unless $self->can($meth)
|
219
|
0 |
3 |
unless $o
|
221
|
0 |
3 |
unless $self->can($meth)
|
230
|
5 |
6 |
unless $o
|
232
|
0 |
6 |
unless $self->can($meth)
|
238
|
2 |
7 |
if ($opts->{'!recurse_obj'}) { }
|
250
|
9 |
0 |
unless $o
|
252
|
0 |
0 |
unless $self->can($meth)
|
264
|
3 |
6 |
if $circ
|
265
|
3 |
6 |
if $circ
|
278
|
3 |
6 |
if $circ
|
289
|
0 |
9 |
if ($ENV{'LOG_CLEANSER_CODE'} and log_is_trace())
|
292
|
0 |
0 |
$ENV{'LINENUM'} // 1 ? :
|