| line |
true |
false |
branch |
|
11
|
18 |
2 |
unless grep /^-debug/, @_ |
|
40
|
1 |
22 |
$name =~ s/^-// ? : |
|
92
|
2 |
5 |
unless @list |
|
106
|
0 |
3 |
unless exists $bindings{reftype $ref} |
|
130
|
6 |
53 |
if blessed $self and exists $$lookup{$sub} |
|
155
|
3 |
25 |
if $$called[0] eq $sub |
|
182
|
3 |
12 |
if abs $pos > @$calls |
|
183
|
9 |
3 |
if $pos > 0 |
|
189
|
0 |
3 |
unless my $args = $_[0]->_call($_[1], 1) |
|
196
|
0 |
4 |
unless my $args = $self->_call($subpos, 1) |
|
197
|
2 |
2 |
if $argpos > 0 |
|
207
|
1 |
5 |
unless @$calls >= $num |
|
210
|
2 |
3 |
wantarray ? : |
|
223
|
0 |
40 |
if $sub eq 'DESTROY' |
|
234
|
39 |
1 |
if (exists $$subs{$sub}) { } |
|
251
|
3 |
42 |
unless _logs($self, $sub) |
|
256
|
8 |
45 |
unless ref $arg |
|
257
|
43 |
2 |
if refaddr $arg eq refaddr $self |
|
275
|
2 |
1 |
unless ($Test->ok(defined $called && $called eq $sub, $name)) |
|
277
|
2 |
0 |
unless defined $called |
|
300
|
1 |
7 |
if ($class->check_class_loaded($modname) and not keys %subs) |
|
318
|
1 |
4 |
unless ($type eq 'CODE') |
|
334
|
13 |
17 |
if exists $INC{$path . '.pm'} |
|
341
|
7 |
16 |
unless (exists $$symtable{$symbol . '::'}) |
|
371
|
305 |
46 |
blessed $invocant ? : |
|
412
|
27 |
4 |
if ($log) { } |