Branch Coverage

blib/lib/Tie/HashObject.pm
Criterion Covered Total %
branch 0 40 0.0


line true false branch
12 0 0 if exists $args{'keys'}
28 0 0 if defined $$self{'storage'}{$key}
44 0 0 if defined $_[0]
50 0 0 if defined $_[0]
60 0 0 if (exists $$args{'keys'})
72 0 0 if (not defined $self->object and $key eq 'object') { }
0 0 elsif (not defined $self->method_keys and $key eq 'keys') { }
0 0 elsif ($self->object->isa((caller)[0])) { }
0 0 elsif (grep /^$key$/, @{$self->method_keys;}) { }
73 0 0 if (ref $value) { }
96 0 0 if ($self->object->isa((caller)[0])) { }
0 0 elsif (grep /^$key$/, @{$self->method_keys;}) { }
109 0 0 if ($self->object->isa((caller)[0])) { }
124 0 0 if ($self->object->isa((caller)[0])) { }
133 0 0 if $last_method eq $key
135 0 0 $next_index > scalar @keys ? :
143 0 0 if ($self->object->isa((caller)[0])) { }
155 0 0 if ($self->object->isa((caller)[0])) { }
166 0 0 if ($self->object->isa((caller)[0])) { }
176 0 0 if ($self->object->isa((caller)[0])) { }