| line |
true |
false |
branch |
|
245
|
1 |
87 |
if (ref $args eq 'CODE') |
|
249
|
14 |
74 |
if (ref $accessor eq 'ARRAY') |
|
271
|
10 |
15 |
if (defined $args and ref $args ne 'ARRAY') |
|
275
|
4 |
21 |
if (ref $accessor eq 'ARRAY') |
|
289
|
14 |
51 |
unless defined $predicate |
|
292
|
10 |
41 |
unless my $type = ref $predicate |
|
294
|
23 |
18 |
if $type eq 'CODE' |
|
295
|
10 |
8 |
if $type eq 'Regexp' |
|
296
|
6 |
2 |
if $type eq 'HASH' |
|
715
|
0 |
8 |
unless my $result = eval {
do {
[grep({&$subref($_);} @$array)]
}
} |
|
719
|
1 |
7 |
wantarray ? : |
|
752
|
0 |
8 |
unless my $result = eval {
do {
[grep({not &$subref($_);} @$array)]
}
} |
|
756
|
1 |
7 |
wantarray ? : |
|
774
|
4 |
34 |
if $ref_option eq 'CODE' |
|
775
|
5 |
33 |
if ($ref_option eq 'Regexp') |
|
781
|
2 |
36 |
unless $group ||= $option__group->{$option} |
|
784
|
2 |
34 |
if exists $group__value->{$group} |
|
805
|
22 |
8 |
unless ref $options eq 'ARRAY' |
|
832
|
0 |
24 |
unless my $sorter = Sort::Maker::make_sorter('plain', 'ref_in', 'ref_out', @sorter_keys) |
|
919
|
3 |
11 |
unless @comparisons |
|
930
|
1 |
11 |
wantarray ? : |
|
987
|
0 |
0 |
wantarray ? : |
|
|
0 |
5 |
unless @$array |
|
1000
|
4 |
1 |
wantarray ? : |
|
1008
|
0 |
3 |
unless ref $value_sub eq 'CODE' |
|
1110
|
0 |
2 |
wantarray ? : |
|
1161
|
1 |
1 |
if $count % 2 |
|
1166
|
0 |
1 |
wantarray ? : |
|
1184
|
1 |
89 |
unless defined $accessor |
|
1185
|
2 |
0 |
wantarray ? : |
|
|
2 |
87 |
unless @$array |
|
1188
|
8 |
79 |
if (ref $array->[0] eq 'HASH') |
|
1189
|
2 |
6 |
if defined $args and @$args |
|
1195
|
1 |
84 |
unless ref $args eq 'ARRAY' |
|
1198
|
25 |
59 |
if ($subref_name) |
|
1199
|
0 |
25 |
unless ref $subref eq 'CODE' |
|
1215
|
1 |
83 |
unless my $result = eval {
do {
&$invoke_sub()
}
} |
|
1218
|
42 |
41 |
wantarray ? : |
|
1461
|
1 |
14 |
unless @$accessors |
|
1463
|
3 |
11 |
unless @$accessors == @$comparisons |
|
1475
|
0 |
12 |
wantarray ? : |
|
1544
|
1 |
19 |
unless $accessor |
|
1545
|
0 |
0 |
wantarray ? : |
|
|
0 |
19 |
unless @$array |
|
1549
|
2 |
17 |
if (ref $array->[0] eq 'HASH') { } |
|
1550
|
1 |
1 |
if defined $args |
|
1557
|
2 |
15 |
unless ref $args eq 'ARRAY' |
|
1570
|
1 |
57 |
unless my $key_ref = eval {
do {
&$invoke_sub($object)
}
} |
|
1581
|
8 |
7 |
wantarray ? : |
|
1589
|
0 |
10 |
unless ref $value_sub eq 'CODE' |
|
1679
|
10 |
1 |
wantarray ? : |
|
1685
|
6 |
0 |
wantarray ? : |
|
|
6 |
7 |
unless &$comparison_sub($hash, $original_key) |
|
1748
|
2 |
5 |
unless ref $key_value_subref eq 'CODE' |
|
1757
|
2 |
10 |
if @new_key_value % 2 |
|
1764
|
1 |
2 |
wantarray ? : |
|
1789
|
2 |
3 |
unless ref $value_subref eq 'CODE' |
|
1798
|
1 |
6 |
if @new_values > 1 |
|
1809
|
1 |
1 |
wantarray ? : |
|
1834
|
2 |
4 |
unless ref $array_item_subref eq 'CODE' |
|
1848
|
2 |
2 |
wantarray ? : |
|
1897
|
20 |
21 |
&$subref($key, $value) ? : |
|
1905
|
0 |
12 |
wantarray ? : |
|
1956
|
20 |
15 |
!&$subref($key, $value) ? : |
|
1964
|
0 |
10 |
wantarray ? : |
|
2016
|
1 |
0 |
wantarray ? : |