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 |