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)
}
} |