Branch Coverage

Bio/Root/Storable.pm
Criterion Covered Total %
branch 41 72 56.9


line true false branch
50 1 0 if (eval 'require Storable')
95 2 6 if $workdir
96 2 6 if $template
97 0 8 if $suffix
122 0 28 if (@_)
124 4 24 unless ($self->{$key})
132 4 0 if ($template)
133 4 0 if ($workdir)
134 2 2 if ($suffix)
161 2 20 if (@_)
163 2 0 if $self->{$key}
187 4 20 if (@_)
208 2 20 if (@_)
235 0 4 if ($self->retrievable)
260 18 12 if (@_)
343 8 54 if ($key =~ /^__/)
347 52 2 if (not ref $value) { }
2 0 elsif (ref($value) =~ /^Bio::/ and $value->isa('Bio::Root::Storable')) { }
0 0 elsif (ref $value eq 'ARRAY') { }
0 0 elsif (ref $value eq 'HASH') { }
362 0 0 if (ref($val) =~ /^Bio::/ and $val->isa('Bio::Root::Storable')) { }
375 0 0 if (ref($val) =~ /^Bio::/ and $val->isa('Bio::Root::Storable')) { }
413 2 4 if (ref $caller and $caller->retrievable)
422 0 6 unless (-f $statefile)
436 6 0 unless ($@)
441 0 0 if ($@ =~ /Cannot restore overloading(.*)/i)
443 0 0 if ($postmatch =~ /\(package +([\w\:]+)\)/)
447 0 0 if ($package) { }
449 0 0 if $@
453 0 6 unless ($success)
455 0 6 unless (ref $stored_obj)
502 4 0 if (-e $self->statefile)
526 7 7 if ($Bio::Root::Storable::BINARY) { }
555 4 4 if ($Bio::Root::Storable::BINARY) { }
561 0 4 if ($@)
564 0 4 unless ref $code eq 'REF'