| line |
true |
false |
branch |
|
34
|
1346 |
134 |
if (ref $$params[0] eq 'ARRAY') { } |
|
35
|
6 |
1340 |
if (grep {ref $$params[$_] ne 'ARRAY';} 1 .. @$params - 1) |
|
41
|
1211 |
129 |
@$params > 1 ? : |
|
46
|
66 |
1408 |
$ok ? : |
|
56
|
2 |
36 |
unless $nr =~ /^\d+$/ |
|
57
|
28 |
8 |
if (ref $$params[0] eq 'ARRAY') { } |
|
58
|
1 |
27 |
if (grep {ref $$params[$_] ne 'ARRAY';} 1 .. @$params - 1) |
|
64
|
25 |
2 |
@$params > 1 ? : |
|
69
|
15 |
20 |
$ok ? : |
|
80
|
230 |
14 |
unless ($Tester->ok($ok, $test_name)) |
|
87
|
20 |
15 |
unless ($Tester->ok($ok, $test_name)) |
|
111
|
8 |
240 |
unless ($Tester->ok($ok, $test_name)) |
|
124
|
8 |
238 |
unless ($Tester->ok($ok, $test_name)) |
|
137
|
230 |
14 |
unless ($Tester->ok($ok, $test_name)) |
|
150
|
230 |
14 |
unless ($Tester->ok($ok, $test_name)) |
|
160
|
230 |
1167 |
unless &$sub($_) |
|
169
|
0 |
522 |
unless &$sub($_) |
|
179
|
1178 |
43917 |
unless &$sub(@$tuple) |
|
188
|
20 |
112 |
unless &$sub(@$tuple) |
|
205
|
17 |
3 |
unless /seed/ and do {
$seed_now = shift();
die 'The seed must be an integer' unless $seed_now =~ /^\d+$/
} |
|
206
|
1 |
3 |
unless $seed_now =~ /^\d+$/ |