| line |
true |
false |
branch |
|
14
|
8 |
0 |
unless grep /^-debug/, @_ |
|
37
|
0 |
95 |
$name =~ s/^-// ? : |
|
89
|
7 |
166 |
unless @list |
|
103
|
0 |
0 |
unless exists $bindings{reftype $ref} |
|
127
|
0 |
0 |
if blessed $self and exists $$lookup{$sub} |
|
152
|
0 |
0 |
if $$called[0] eq $sub |
|
179
|
0 |
0 |
if abs $pos > @$calls |
|
180
|
0 |
0 |
if $pos > 0 |
|
186
|
0 |
0 |
unless my $args = $_[0]->_call($_[1], 1) |
|
193
|
0 |
0 |
unless my $args = $self->_call($subpos, 1) |
|
194
|
0 |
0 |
if $argpos > 0 |
|
204
|
0 |
0 |
unless @$calls >= $num |
|
207
|
0 |
0 |
wantarray ? : |
|
220
|
0 |
264 |
if $sub eq 'DESTROY' |
|
231
|
264 |
0 |
if (exists $$subs{$sub}) { } |
|
248
|
0 |
264 |
unless _logs($self, $sub) |
|
253
|
0 |
492 |
unless ref $arg |
|
254
|
264 |
228 |
if refaddr $arg eq refaddr $self |
|
272
|
0 |
0 |
unless ($Test->ok(defined $called && $called eq $sub, $name)) |
|
274
|
0 |
0 |
unless defined $called |
|
297
|
0 |
0 |
if ($class->check_class_loaded($modname) and not keys %subs) |
|
315
|
0 |
0 |
unless ($type eq 'CODE') |
|
331
|
0 |
0 |
if exists $INC{$path . '.pm'} |
|
338
|
0 |
0 |
unless (exists $$symtable{$symbol . '::'}) |
|
368
|
1234 |
0 |
blessed $invocant ? : |
|
409
|
95 |
0 |
if ($log) { } |