| line |
true |
false |
branch |
|
6
|
0 |
7067 |
unless @_ <= 1 |
|
|
0 |
7067 |
unless @_ >= 1 |
|
7
|
0 |
9521 |
unless @_ <= 1 |
|
|
0 |
9521 |
unless @_ >= 1 |
|
9
|
0 |
332 |
unless @_ >= 2 |
|
|
0 |
332 |
if @_ & 1 |
|
10
|
0 |
332 |
if ref $me |
|
14
|
0 |
3107 |
unless @_ >= 2 |
|
|
0 |
3107 |
if @_ & 1 |
|
22
|
0 |
4198 |
unless @_ <= 3 |
|
|
0 |
4198 |
unless @_ >= 3 |
|
26
|
2168 |
2030 |
if ($type eq 'code') { } |
|
|
2030 |
0 |
elsif ($type eq 'gen') { } |
|
34
|
26 |
2004 |
if $cache->{$pkg}{$name} |
|
38
|
0 |
2168 |
unless $fn |
|
43
|
0 |
4730 |
unless @_ <= 2 |
|
|
0 |
4730 |
unless @_ >= 2 |
|
44
|
2 |
4728 |
unless my $slot = $self->symbols->{$name} |
|
47
|
0 |
1998 |
unless @_ <= 3 |
|
|
0 |
1998 |
unless @_ >= 3 |
|
49
|
1 |
1997 |
if $self->symbols->{$name} |
|
53
|
0 |
530 |
unless @_ <= 4 |
|
|
0 |
530 |
unless @_ >= 4 |
|
58
|
0 |
544 |
unless @_ <= 3 |
|
|
0 |
544 |
unless @_ >= 3 |
|
62
|
0 |
923 |
unless @_ <= 3 |
|
|
0 |
923 |
unless @_ >= 3 |
|
66
|
0 |
338 |
unless @_ <= 2 |
|
|
0 |
338 |
unless @_ >= 2 |
|
72
|
2 |
336 |
unless my $sub = *{$full;}{'CODE'} |
|
77
|
0 |
100 |
unless @_ >= 2 |
|
90
|
0 |
696 |
unless @_ >= 1 |
|
94
|
558 |
401 |
if ($cur eq '*') { } |
|
|
43 |
358 |
elsif ($cur =~ /^-(.+)/u) { } |
|
95
|
1 |
557 |
unless %symbols |
|
108
|
0 |
594 |
unless @_ >= 2 |