Branch Coverage

blib/lib/Tie/InSecureHash.pm
Criterion Covered Total %
branch 9 44 20.4


line true false branch
13 0 0 if $Tie::InSecureHash::strict and $Tie::InSecureHash::fast
42 1 0 unless $Tie::InSecureHash::fast
45 0 1 if (@_)
51 0 0 if $ancestor eq $blessclass
56 0 0 $key =~ /::/ ? :
57 0 0 if ($Tie::InSecureHash::fast) { }
65 0 0 if $key =~ /\A__/
80 0 0 unless $self
98 0 0 if (eval { do { _access($self, $shortkey, $caller, $file); 1 } }) { }
0 0 elsif ($@ =~ /\AAmbiguous key/) { }
113 0 0 if ($shortkey =~ /\A__/ and $@ =~ /file/) { }
0 0 elsif ($shortkey =~ /\A__/) { }
128 0 0 if (defined $val) { }
131 0 0 if $explanation
169 0 1 if ($Tie::InSecureHash::strict) { }
0 1 elsif ($Tie::InSecureHash::fast) { }
171 0 0 unless (caller 1)[3] =~ /\A(.*?)::([^:]*)\Z/ and $2 eq 'new' and $1->isa('Tie::SecureHash')
189 217 0 if $entry
197 54 0 if $entry
215 0 2 if @inaccessibles
224 56 0 eval { do { _access($self, $key, @context); 1 } } ? :
241 114 0 if eval { do { _access($self, $key, @context) } }