| line |
true |
false |
branch |
|
202
|
2 |
15 |
ref $other ? : |
|
|
1 |
16 |
if $swap |
|
|
2 |
2 |
ref $other ? : |
|
|
1 |
3 |
if $swap |
|
|
2 |
2 |
ref $other ? : |
|
|
1 |
3 |
if $swap |
|
|
2 |
2 |
ref $other ? : |
|
|
1 |
3 |
if $swap |
|
|
2 |
2 |
ref $other ? : |
|
|
1 |
3 |
if $swap |
|
|
2 |
2 |
ref $other ? : |
|
|
1 |
3 |
if $swap |
|
|
2 |
4 |
ref $other ? : |
|
|
3 |
3 |
if $swap |
|
207
|
2 |
2 |
ref $other ? : |
|
215
|
2 |
2 |
ref $other ? : |
|
261
|
4 |
2 |
if (ref $left eq 'Array::APX' and ref $right eq 'Array::APX' or ref $left eq 'Array::APX' and defined $right and CORE::not ref $right) { } |
|
|
1 |
1 |
elsif (ref $left eq 'Array::APX' and ref $right eq 'CODE') { } |
|
|
1 |
0 |
elsif (ref $left eq 'Array::APX' and CORE::not defined $right) { } |
|
266
|
2 |
2 |
ref $right ? : |
|
332
|
4 |
1 |
if (ref $left eq 'Array::APX' and ref $right ne 'CODE') { } |
|
|
1 |
0 |
elsif (ref $_[0] eq 'Array::APX' and ref $_[1] eq 'CODE') { } |
|
334
|
2 |
2 |
ref $right ? : |
|
335
|
1 |
3 |
if $swap |
|
345
|
0 |
99 |
if $@ |
|
375
|
0 |
1 |
unless $swap |
|
378
|
0 |
1 |
if ref $function ne 'CODE' |
|
426
|
0 |
49 |
if ref $value ne 'ARRAY' |
|
455
|
0 |
52 |
unless $argument =~ /^[+]?\d+$/ |
|
542
|
0 |
0 |
unless ref $where eq 'Array::APX' |
|
585
|
0 |
1 |
unless ref $b eq 'Array::APX' |
|
608
|
0 |
1 |
unless ref $b eq 'Array::APX' |
|
668
|
1 |
5 |
if (CORE::not defined $control) { } |
|
674
|
0 |
5 |
if ref $control ne 'Array::APX' |
|
703
|
0 |
1 |
unless ref $b eq 'Array::APX' |
|
732
|
0 |
1 |
unless ref $b eq 'Array::APX' |
|
766
|
0 |
0 |
unless ref $control eq 'Array::APX' |
|
772
|
0 |
0 |
if $$control[$i] |
|
798
|
0 |
1 |
unless ref $control eq 'Array::APX' |
|
850
|
0 |
1 |
unless ref $control eq 'Array::APX' |
|
878
|
0 |
1 |
unless $control =~ /^[+-]?\d+/ |
|
893
|
117 |
55 |
if (ref $_[0] ne 'ARRAY' and ref $_[1] ne 'ARRAY') |
|
910
|
0 |
2 |
if (CORE::not ref $element or ref $element eq 'Lang5::String') |
|
911
|
0 |
0 |
unless defined $element |
|
912
|
0 |
0 |
if $element =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/ |
|
929
|
2 |
4 |
if ($i == 0) |
|
930
|
0 |
2 |
if ($txt) |
|
937
|
6 |
0 |
if ($i <= $#$e) |
|
939
|
0 |
6 |
if (ref $$e[$i] and ref $$e[$i] ne 'Lang5::String') |
|
946
|
0 |
6 |
if ($txt =~ /\]$/) { } |
|
952
|
6 |
0 |
defined $$e[$i] ? : |
|
957
|
2 |
4 |
if ($i >= $#$e) |
|
965
|
2 |
0 |
if ($ltxt =~ /\[/ and CORE::not $ltxt =~ /\]|\)$/) { } |
|
975
|
0 |
2 |
if $last_type and $last_type ne 'ARRAY' and $last_type ne 'Lang5::String' |
|
984
|
4 |
2 |
if @istack |
|
988
|
2 |
0 |
unless $txt =~ /\n$/ |
|
1000
|
0 |
0 |
if (ref $d eq 'ARRAY') |
|
1002
|
0 |
0 |
if _is_in($el, $d) |
|
1005
|
0 |
0 |
if $el eq $d |