| line |
true |
false |
branch |
|
18
|
3 |
2 |
if (my $sig = $code->signature) |
|
20
|
0 |
3 |
unless $n |
|
35
|
1 |
13 |
if (ref $filter eq 'Regexp') |
|
46
|
4 |
1 |
wantarray ? : |
|
51
|
1 |
1 |
wantarray ? : |
|
56
|
1 |
9 |
unless defined $num |
|
58
|
2 |
7 |
unless $num->is_integer and $num->is_positive || $num == 0 |
|
61
|
3 |
4 |
if ($num >= @$self) |
|
63
|
3 |
0 |
wantarray ? : |
|
75
|
9 |
11 |
if ($rand < $num) |
|
87
|
4 |
0 |
wantarray ? : |
|
99
|
1 |
13 |
wantarray ? : |
|
103
|
1 |
6 |
unless defined $times |
|
105
|
2 |
4 |
unless $times->is_integer and $times->is_positive || $times == 0 |
|
109
|
1 |
3 |
if $times > scalar @$self |
|
112
|
3 |
1 |
wantarray ? : |
|
116
|
1 |
6 |
unless defined $times |
|
118
|
2 |
4 |
unless $times->is_integer and $times->is_positive || $times == 0 |
|
122
|
1 |
3 |
if $times > scalar @$self |
|
125
|
3 |
1 |
wantarray ? : |
|
156
|
2 |
2 |
wantarray ? : |
|
162
|
1 |
2 |
wantarray ? : |
|
168
|
1 |
2 |
wantarray ? : |
|
203
|
3 |
39 |
unless (@rest) |
|
204
|
0 |
3 |
wantarray ? : |
|
211
|
21 |
18 |
$has_refs ? : |
|
215
|
4 |
35 |
if grep {ref $_ ne 'ARRAY';} @rest |
|
221
|
1 |
34 |
wantarray ? : |
|
258
|
1 |
36 |
unless (@rest) |
|
259
|
0 |
1 |
wantarray ? : |
|
265
|
14 |
22 |
$has_refs ? : |
|
269
|
4 |
32 |
if grep {ref $_ ne 'ARRAY';} @rest |
|
275
|
1 |
31 |
wantarray ? : |
|
281
|
1 |
3 |
wantarray ? : |
|
287
|
1 |
3 |
wantarray ? : |
|
293
|
1 |
4 |
wantarray ? : |