| line |
true |
false |
branch |
|
244
|
1 |
87 |
if (ref $args eq 'CODE') |
|
248
|
14 |
74 |
if (ref $accessor eq 'ARRAY') |
|
270
|
10 |
15 |
if (defined $args and ref $args ne 'ARRAY') |
|
274
|
4 |
21 |
if (ref $accessor eq 'ARRAY') |
|
288
|
14 |
51 |
unless defined $predicate |
|
291
|
10 |
41 |
unless my $type = ref $predicate |
|
293
|
23 |
18 |
if $type eq 'CODE' |
|
294
|
10 |
8 |
if $type eq 'Regexp' |
|
295
|
6 |
2 |
if $type eq 'HASH' |
|
685
|
0 |
8 |
unless my $result = eval {
do {
[grep({&$subref($_);} @$array)]
}
} |
|
689
|
1 |
7 |
wantarray ? : |
|
722
|
0 |
8 |
unless my $result = eval {
do {
[grep({not &$subref($_);} @$array)]
}
} |
|
726
|
1 |
7 |
wantarray ? : |
|
744
|
4 |
34 |
if $ref_option eq 'CODE' |
|
745
|
5 |
33 |
if ($ref_option eq 'Regexp') |
|
751
|
2 |
36 |
unless $group ||= $option__group->{$option} |
|
754
|
2 |
34 |
if exists $group__value->{$group} |
|
775
|
22 |
8 |
unless ref $options eq 'ARRAY' |
|
802
|
0 |
24 |
unless my $sorter = Sort::Maker::make_sorter('plain', 'ref_in', 'ref_out', @sorter_keys) |
|
889
|
3 |
11 |
unless @comparisons |
|
900
|
1 |
11 |
wantarray ? : |
|
957
|
0 |
0 |
wantarray ? : |
|
|
0 |
5 |
unless @$array |
|
970
|
4 |
1 |
wantarray ? : |
|
978
|
0 |
3 |
unless ref $value_sub eq 'CODE' |
|
1080
|
0 |
2 |
wantarray ? : |
|
1131
|
1 |
1 |
if $count % 2 |
|
1136
|
0 |
1 |
wantarray ? : |
|
1154
|
1 |
89 |
unless defined $accessor |
|
1155
|
2 |
0 |
wantarray ? : |
|
|
2 |
87 |
unless @$array |
|
1158
|
8 |
79 |
if (ref $array->[0] eq 'HASH') |
|
1159
|
2 |
6 |
if defined $args and @$args |
|
1165
|
1 |
84 |
unless ref $args eq 'ARRAY' |
|
1168
|
25 |
59 |
if ($subref_name) |
|
1169
|
0 |
25 |
unless ref $subref eq 'CODE' |
|
1185
|
1 |
83 |
unless my $result = eval {
do {
&$invoke_sub()
}
} |
|
1188
|
42 |
41 |
wantarray ? : |
|
1432
|
1 |
14 |
unless @$accessors |
|
1434
|
3 |
11 |
unless @$accessors == @$comparisons |
|
1446
|
0 |
12 |
wantarray ? : |
|
1515
|
1 |
19 |
unless $accessor |
|
1516
|
0 |
0 |
wantarray ? : |
|
|
0 |
19 |
unless @$array |
|
1520
|
2 |
17 |
if (ref $array->[0] eq 'HASH') { } |
|
1521
|
1 |
1 |
if defined $args |
|
1528
|
2 |
15 |
unless ref $args eq 'ARRAY' |
|
1541
|
1 |
57 |
unless my $key_ref = eval {
do {
&$invoke_sub($object)
}
} |
|
1552
|
8 |
7 |
wantarray ? : |
|
1560
|
0 |
10 |
unless ref $value_sub eq 'CODE' |
|
1650
|
10 |
1 |
wantarray ? : |
|
1656
|
6 |
0 |
wantarray ? : |
|
|
6 |
7 |
unless &$comparison_sub($hash, $original_key) |
|
1719
|
2 |
5 |
unless ref $key_value_subref eq 'CODE' |
|
1728
|
2 |
10 |
if @new_key_value % 2 |
|
1735
|
1 |
2 |
wantarray ? : |
|
1760
|
2 |
3 |
unless ref $value_subref eq 'CODE' |
|
1769
|
1 |
6 |
if @new_values > 1 |
|
1780
|
1 |
1 |
wantarray ? : |
|
1805
|
2 |
4 |
unless ref $array_item_subref eq 'CODE' |
|
1819
|
2 |
2 |
wantarray ? : |
|
1864
|
20 |
21 |
&$subref($key, $value) ? : |
|
1872
|
0 |
12 |
wantarray ? : |
|
1920
|
20 |
15 |
!&$subref($key, $value) ? : |
|
1928
|
0 |
10 |
wantarray ? : |
|
1980
|
1 |
0 |
wantarray ? : |