Branch Coverage

blib/lib/Data/Clean.pm
Criterion Covered Total %
branch 33 54 61.1


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 ? :