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