| line |
true |
false |
branch |
|
6
|
0 |
6539 |
unless @_ <= 1 |
|
|
0 |
6539 |
unless @_ >= 1 |
|
7
|
0 |
8927 |
unless @_ <= 1 |
|
|
0 |
8927 |
unless @_ >= 1 |
|
9
|
0 |
299 |
unless @_ >= 2 |
|
|
0 |
299 |
if @_ & 1 |
|
10
|
0 |
299 |
if ref $me |
|
14
|
0 |
2887 |
unless @_ >= 2 |
|
|
0 |
2887 |
if @_ & 1 |
|
22
|
0 |
3912 |
unless @_ <= 3 |
|
|
0 |
3912 |
unless @_ >= 3 |
|
26
|
2047 |
1865 |
if ($type eq 'code') { } |
|
|
1865 |
0 |
elsif ($type eq 'gen') { } |
|
34
|
26 |
1839 |
if $cache->{$pkg}{$name} |
|
38
|
0 |
2047 |
unless $fn |
|
43
|
0 |
4411 |
unless @_ <= 2 |
|
|
0 |
4411 |
unless @_ >= 2 |
|
44
|
2 |
4409 |
unless my $slot = $self->symbols->{$name} |
|
47
|
0 |
1899 |
unless @_ <= 3 |
|
|
0 |
1899 |
unless @_ >= 3 |
|
49
|
1 |
1898 |
if $self->symbols->{$name} |
|
53
|
0 |
497 |
unless @_ <= 4 |
|
|
0 |
497 |
unless @_ >= 4 |
|
58
|
0 |
544 |
unless @_ <= 3 |
|
|
0 |
544 |
unless @_ >= 3 |
|
62
|
0 |
857 |
unless @_ <= 3 |
|
|
0 |
857 |
unless @_ >= 3 |
|
66
|
0 |
316 |
unless @_ <= 2 |
|
|
0 |
316 |
unless @_ >= 2 |
|
72
|
2 |
314 |
unless my $sub = *{$full;}{'CODE'} |
|
77
|
0 |
89 |
unless @_ >= 2 |
|
90
|
0 |
619 |
unless @_ >= 1 |
|
94
|
503 |
357 |
if ($cur eq '*') { } |
|
|
21 |
336 |
elsif ($cur =~ /^-(.+)/u) { } |
|
95
|
1 |
502 |
unless %symbols |
|
108
|
0 |
528 |
unless @_ >= 2 |