| line |
true |
false |
branch |
|
31
|
0 |
171 |
$name =~ s/^-// ? : |
|
83
|
0 |
0 |
unless @list |
|
97
|
0 |
0 |
unless exists $bindings{reftype $ref} |
|
121
|
976 |
0 |
if blessed $self and exists $$lookup{$sub} |
|
146
|
0 |
0 |
if $$called[0] eq $sub |
|
173
|
0 |
0 |
if abs $pos > @$calls |
|
174
|
0 |
0 |
if $pos > 0 |
|
180
|
0 |
0 |
unless my $args = $_[0]->_call($_[1], 1) |
|
187
|
0 |
0 |
unless my $args = $self->_call($subpos, 1) |
|
188
|
0 |
0 |
if $argpos > 0 |
|
198
|
0 |
0 |
unless @$calls >= $num |
|
201
|
0 |
0 |
wantarray ? : |
|
212
|
0 |
946 |
if $sub eq 'DESTROY' |
|
223
|
946 |
0 |
if (exists $$subs{$sub}) { } |
|
240
|
0 |
946 |
unless _logs($self, $sub) |
|
245
|
0 |
946 |
unless ref $arg |
|
246
|
946 |
0 |
if refaddr $arg eq refaddr $self |
|
264
|
0 |
0 |
unless ($Test->ok(defined $called && $called eq $sub, $name)) |
|
266
|
0 |
0 |
unless defined $called |
|
289
|
0 |
0 |
if ($class->check_class_loaded($modname) and not keys %subs) |
|
307
|
0 |
0 |
unless ($type eq 'CODE') |
|
323
|
0 |
0 |
if exists $INC{$path . '.pm'} |
|
330
|
0 |
0 |
unless (exists $$symtable{$symbol . '::'}) |
|
360
|
4532 |
0 |
blessed $invocant ? : |
|
401
|
171 |
0 |
if ($log) { } |