| line |
true |
false |
branch |
|
37
|
0 |
5 |
if not $no_cache and $SCOPES_CACHE{$package} |
|
39
|
0 |
5 |
if $no_cache |
|
78
|
5 |
0 |
if (not defined $TABLES{$class}) { } |
|
83
|
133 |
0 |
if ($table_i =~ /^([\$\@\%\*\&])(\Q$class\E:*)(.*)/) |
|
85
|
0 |
133 |
if $name eq '__SAFEWORLD_HOOK__' |
|
88
|
128 |
5 |
if ($tp eq '&') { } |
|
|
5 |
0 |
elsif ($only_call) { } |
|
|
0 |
0 |
elsif ($tp eq '$') { } |
|
|
0 |
0 |
elsif ($tp eq '@') { } |
|
|
0 |
0 |
elsif ($tp eq '%') { } |
|
|
0 |
0 |
elsif ($tp eq '*') { } |
|
101
|
5 |
0 |
unless (defined &$hook_sub) |
|
109
|
3 |
2 |
if ($$table{'&'}{'DESTROY'}) |
|
111
|
0 |
3 |
if $HOOK_IDS{"$_[0]"} |
|
116
|
5 |
0 |
if ($only_call) |
|
132
|
5 |
0 |
unless $packname =~ /::$/ |
|
135
|
0 |
5 |
unless defined $package |
|
145
|
158 |
1 |
unless ($symb =~ /::$/ or $symb =~ /[^\w:]/) |
|
146
|
5 |
153 |
if (defined $$fullname) |
|
147
|
0 |
158 |
if (defined %$fullname) |
|
148
|
0 |
158 |
if (defined @$fullname) |
|
149
|
128 |
30 |
if (defined &$fullname) |
|
150
|
0 |
158 |
if (*{$fullname;}{'IO'} and fileno $fullname) |
|
169
|
5 |
0 |
if ($_[0] eq 'call') { } |
|
|
0 |
0 |
elsif ($$__TABLE__{'only_call'} and $$__TABLE__{'only_call'}{"$__HOOK__"}) { } |
|
|
0 |
0 |
elsif ($_[0] eq 'get') { } |
|
|
0 |
0 |
elsif ($_[0] eq 'set') { } |
|
172
|
5 |
0 |
if $sub |
|
180
|
0 |
0 |
if ($_[0] eq '$') { } |
|
|
0 |
0 |
elsif ($_[0] eq '@') { } |
|
|
0 |
0 |
elsif ($_[0] eq '%') { } |
|
|
0 |
0 |
elsif ($_[0] eq '*') { } |
|
|
0 |
0 |
elsif ($_[0] eq '\\$') { } |
|
|
0 |
0 |
elsif ($_[0] eq '\\@') { } |
|
|
0 |
0 |
elsif ($_[0] eq '\\%') { } |
|
|
0 |
0 |
elsif ($_[0] eq '\\*') { } |
|
192
|
0 |
0 |
$__REF__ eq 'HASH' ? : |
|
|
0 |
0 |
$__REF__ eq 'ARRAY' ? : |
|
|
0 |
0 |
$__REF__ eq 'SCALAR' ? : |
|
|
0 |
0 |
if ($_[0] eq '$') { } |
|
|
0 |
0 |
elsif ($_[0] eq '@') { } |
|
|
0 |
0 |
elsif ($_[0] eq '%') { } |
|
|
0 |
0 |
elsif ($_[0] eq '*') { } |
|
193
|
0 |
0 |
$__REF__ eq 'HASH' ? : |
|
|
0 |
0 |
$__REF__ eq 'ARRAY' ? : |
|
|
0 |
0 |
$__REF__ eq 'SCALAR' ? : |
|
194
|
0 |
0 |
$__REF__ eq 'HASH' ? : |
|
|
0 |
0 |
$__REF__ eq 'ARRAY' ? : |
|
|
0 |
0 |
$__REF__ eq 'SCALAR' ? : |
|
195
|
0 |
0 |
$__REF__ eq 'HASH' ? : |
|
|
0 |
0 |
$__REF__ eq 'ARRAY' ? : |
|
|
0 |
0 |
$__REF__ eq 'SCALAR' ? : |
|
218
|
1 |
2 |
unless $HOLE |
|
220
|
0 |
3 |
if ($this->_STASH_REF_NOW ne $$this{'STASH'}) |
|
222
|
0 |
0 |
unless $sub_ref |
|
234
|
1 |
0 |
if (not $HOLE) |
|
273
|
0 |
0 |
if ($keep_ref) { } |