Branch Coverage

Bio/Root/Root.pm
Criterion Covered Total %
branch 38 72 52.7


line true false branch
155 276 0 unless ($main::DONT_USE_ERROR)
156 276 0 if (eval 'require Error; 1;')
163 0 276 unless ($ERRORLOADED)
170 276 0 unless ($@)
172 276 0 if ($class eq 'Clone') { }
185 0 276 unless (defined $CLONE_CLASS)
191 0 0 if (not $reftype) { }
0 0 elsif ($reftype eq 'ARRAY') { }
0 0 elsif ($reftype eq 'HASH') { }
0 0 elsif ($reftype eq 'CODE') { }
200 0 0 if ($class)
223 152832 52295 if (@_ > 1)
226 0 152832 if @_ % 2
259 0 11886 unless ref $orig and $orig->isa('Bio::Root::Root')
279 3 0 if ($clone->can($method)) { }
325 16 510522 if $DEBUG
326 28 510494 unless ref $self
328 217355 293139 if (defined $value or not defined $self->{'_root_verbose'})
340 72021 0 if ($method)
341 67570 4451 unless (exists $self->{'_root_cleanup_methods'})
364 107 304998 unless ref $self and $self->isa('HASH')
365 246378 58620 unless my $methods = $self->{'_root_cleanup_methods'}
415 131 11 if @args == 1
417 142 0 if ($ERRORLOADED) { }
426 0 142 if (ref $args[0]) { }
427 0 0 if ($args[0]->isa('Error')) { }
441 11 131 if (@args % 2 == 0 and $args[0] =~ /^-/)
447 11 131 scalar keys %args > 0 ? :
452 0 0 if $class
479 0 76642 if (defined $self->verbose and $self->verbose > 0)
480 0 0 unless (@msgs and $msgs[-1] =~ /\n$/)
481 0 0 unless @msgs
503 0 8940 if $main::main::{$module}
507 0 8940 if (not $name =~ /^([\w:]+)$/) { }
520 0 8940 if ($@)
532 246485 58620 unless my(@cleanup_methods) = $self->_cleanup_methods