| line |
true |
false |
branch |
|
104
|
0 |
356 |
if (not defined $x) { } |
|
|
3 |
353 |
elsif ($x eq '') { } |
|
|
301 |
52 |
elsif (not ref $x) { } |
|
|
52 |
0 |
elsif (ref $x eq 'ARRAY') { } |
|
109
|
293 |
8 |
if ($x =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/) { } |
|
|
3 |
5 |
elsif ($x =~ /^.$/) { } |
|
121
|
12561 |
8245 |
if $_ < scalar @{$x;} |
|
190
|
6 |
0 |
if $x < $y |
|
196
|
0 |
9 |
if $x > $y |
|
240
|
0 |
2 |
if $x == 0 and $y == 0 |
|
247
|
2 |
6 |
if $y == 0 |
|
270
|
0 |
1 |
if $x == 0 |
|
271
|
0 |
1 |
if $y == 0 |
|
354
|
1 |
9 |
if &$p($x) |
|
453
|
2 |
1 |
$len == $Language::Functional::INFINITE ? : |
|
553
|
0 |
4125 |
if $debug |
|
554
|
0 |
4125 |
if ($pointer eq $Language::Functional::INFINITE) |
|
557
|
0 |
4125 |
if ($idx - 1 > $pointer) |
|
558
|
0 |
0 |
if $debug |
|
559
|
0 |
0 |
if $_ < $array->FETCHSIZE |
|
561
|
0 |
4125 |
if ($idx > $array->FETCHSIZE) |
|
562
|
0 |
0 |
if $debug |
|
567
|
0 |
8254 |
if $debug |
|
568
|
2 |
8252 |
if ($pointer >= $array->FETCHSIZE) |
|
569
|
0 |
2 |
if $debug |
|
571
|
0 |
2 |
if $debug |
|
574
|
4122 |
4129 |
if (&$f($$xs[$pointer])) |
|
575
|
0 |
4122 |
if $debug |
|
579
|
0 |
4124 |
if $debug |
|
627
|
1 |
36 |
if $len == $Language::Functional::INFINITE |
|
710
|
0 |
19 |
if $debug |
|
711
|
3 |
16 |
if ($idx == 0) |
|
712
|
0 |
3 |
if $debug |
|
715
|
0 |
16 |
if ($pointer eq $Language::Functional::INFINITE) |
|
718
|
16 |
0 |
if ($idx - 1 > $pointer) |
|
719
|
0 |
16 |
if $debug |
|
720
|
32 |
0 |
if $_ < $array->FETCHSIZE |
|
722
|
0 |
16 |
if ($idx > $array->FETCHSIZE) |
|
723
|
0 |
0 |
if $debug |
|
727
|
0 |
16 |
if $debug |
|
729
|
0 |
16 |
if $debug |
|
874
|
22 |
32878 |
if $idx == 0 |
|
975
|
1 |
1 |
$len == $Language::Functional::INFINITE ? : |
|
1033
|
0 |
19 |
if $debug |
|
1034
|
0 |
19 |
if ($pointer eq $Language::Functional::INFINITE) |
|
1037
|
0 |
19 |
if ($idx - 1 > $pointer) |
|
1038
|
0 |
0 |
if $debug |
|
1039
|
0 |
0 |
if $_ < $array->FETCHSIZE |
|
1041
|
0 |
19 |
if ($idx > $array->FETCHSIZE) |
|
1042
|
0 |
0 |
if $debug |
|
1046
|
15 |
4 |
if (&$p($$xs[$pointer])) { } |
|
1047
|
0 |
15 |
if $debug |
|
1050
|
0 |
4 |
if $debug |
|
1082
|
4 |
15 |
unless &$p($$xs[$pointer]) |
|
1087
|
1 |
3 |
$len == $Language::Functional::INFINITE ? : |
|
1272
|
0 |
3 |
if not $_ |
|
1298
|
1 |
2 |
if $_ |
|
1326
|
3 |
3 |
if &$p($$xs[$n]) |
|
1329
|
0 |
0 |
if ($size == $Language::Functional::INFINITE or $size == $Language::Functional::INFINITE - 1) |
|
1360
|
1 |
8199 |
unless &$p($$xs[$n]) |
|
1363
|
1 |
2 |
if ($size == $Language::Functional::INFINITE or $size == $Language::Functional::INFINITE - 1) |
|
1439
|
1 |
0 |
if defined $hash{$key} |
|
1693
|
0 |
52 |
if @_ or ref $closure ne 'CODE' |
|
1705
|
0 |
82419 |
if $debug |
|
1706
|
6 |
82413 |
if ($idx == $Language::Functional::INFINITE or $idx == $Language::Functional::INFINITE - 1) |
|
1709
|
45308 |
37105 |
if (not defined $$self{'ARRAY'}[$idx]) { } |
|
1710
|
0 |
45308 |
if $debug |
|
1713
|
0 |
37105 |
if $debug |
|
1715
|
0 |
82411 |
if $debug |