| line |
true |
false |
branch |
|
32
|
12 |
213 |
unless my(@ites) = @_ |
|
|
0 |
16 |
ref $ite eq 'GLOB' ? : |
|
|
16 |
197 |
if (@ites == 1) |
|
|
0 |
1668 |
if (ref $_ eq 'GLOB') |
|
|
1 |
196 |
if grep {ref $_ ne 'CODE';} @ites |
|
96
|
2 |
448 |
if grep {not ref($_) =~ /^CODE$|^GLOB$/;} @$iterators |
|
98
|
24 |
424 |
if ($nb == 0) { } |
|
|
32 |
392 |
elsif ($nb == 1) { } |
|
|
224 |
168 |
elsif ($nb <= $Max_generate) { } |
|
105
|
0 |
32 |
ref $ite eq 'GLOB' ? : |
|
109
|
0 |
224 |
if ($nb == grep({ref $_ eq 'GLOB';} @$iterators)) { } |
|
115
|
0 |
1232 |
if (ref $_ eq 'GLOB') |
|
127
|
0 |
2100 |
if (ref $_ eq 'GLOB') |
|
138
|
84 |
84 |
if ($lex) { } |
|
141
|
1032 |
18 |
if defined $val |
|
146
|
52387 |
1032 |
if (defined($data->[0] = $data->[1]->())) |
|
155
|
1032 |
18 |
if defined $val |
|
160
|
52952 |
1032 |
if (defined($data->[0] = $data->[1]->())) |
|
179
|
0 |
0 |
if (defined $_ and !defined($min) || $_ lt $min) |
|
184
|
0 |
0 |
if defined $min_i |
|
196
|
0 |
0 |
if (defined $_ and !defined($min) || $_ < $min) |
|
201
|
0 |
0 |
if defined $min_i |
|
213
|
0 |
88 |
$globs ? : |
|
215
|
8 |
8 |
$lex ? : |
|
225
|
0 |
16 |
unless eval $str |
|
231
|
0 |
1020 |
$globs ? : |
|
|
1020 |
1004 |
unless defined $j |