| 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' |
|
716
|
0 |
8 |
unless my $result = eval {
do {
[grep({&$subref($_);} @$array)]
}
} |
|
720
|
1 |
7 |
wantarray ? : |
|
753
|
0 |
8 |
unless my $result = eval {
do {
[grep({not &$subref($_);} @$array)]
}
} |
|
757
|
1 |
7 |
wantarray ? : |
|
775
|
4 |
34 |
if $ref_option eq 'CODE' |
|
776
|
5 |
33 |
if ($ref_option eq 'Regexp') |
|
782
|
2 |
36 |
unless $group ||= $option__group->{$option} |
|
785
|
2 |
34 |
if exists $group__value->{$group} |
|
806
|
22 |
8 |
unless ref $options eq 'ARRAY' |
|
833
|
0 |
24 |
unless my $sorter = Sort::Maker::make_sorter('plain', 'ref_in', 'ref_out', @sorter_keys) |
|
920
|
3 |
11 |
unless @comparisons |
|
931
|
1 |
11 |
wantarray ? : |
|
988
|
0 |
0 |
wantarray ? : |
|
|
0 |
5 |
unless @$array |
|
1001
|
4 |
1 |
wantarray ? : |
|
1009
|
0 |
3 |
unless ref $value_sub eq 'CODE' |
|
1111
|
0 |
2 |
wantarray ? : |
|
1162
|
1 |
1 |
if $count % 2 |
|
1167
|
0 |
1 |
wantarray ? : |
|
1185
|
1 |
89 |
unless defined $accessor |
|
1186
|
2 |
0 |
wantarray ? : |
|
|
2 |
87 |
unless @$array |
|
1189
|
8 |
79 |
if (ref $array->[0] eq 'HASH') |
|
1190
|
2 |
6 |
if defined $args and @$args |
|
1196
|
1 |
84 |
unless ref $args eq 'ARRAY' |
|
1199
|
25 |
59 |
if ($subref_name) |
|
1200
|
0 |
25 |
unless ref $subref eq 'CODE' |
|
1216
|
1 |
83 |
unless my $result = eval {
do {
&$invoke_sub()
}
} |
|
1219
|
42 |
41 |
wantarray ? : |
|
1463
|
1 |
14 |
unless @$accessors |
|
1465
|
3 |
11 |
unless @$accessors == @$comparisons |
|
1477
|
0 |
12 |
wantarray ? : |
|
1546
|
1 |
19 |
unless $accessor |
|
1547
|
0 |
0 |
wantarray ? : |
|
|
0 |
19 |
unless @$array |
|
1551
|
2 |
17 |
if (ref $array->[0] eq 'HASH') { } |
|
1552
|
1 |
1 |
if defined $args |
|
1559
|
2 |
15 |
unless ref $args eq 'ARRAY' |
|
1572
|
1 |
57 |
unless my $key_ref = eval {
do {
&$invoke_sub($object)
}
} |
|
1583
|
8 |
7 |
wantarray ? : |
|
1591
|
0 |
10 |
unless ref $value_sub eq 'CODE' |
|
1681
|
10 |
1 |
wantarray ? : |
|
1687
|
6 |
0 |
wantarray ? : |
|
|
6 |
7 |
unless &$comparison_sub($hash, $original_key) |
|
1750
|
2 |
5 |
unless ref $key_value_subref eq 'CODE' |
|
1759
|
2 |
10 |
if @new_key_value % 2 |
|
1766
|
1 |
2 |
wantarray ? : |
|
1791
|
2 |
3 |
unless ref $value_subref eq 'CODE' |
|
1800
|
1 |
6 |
if @new_values > 1 |
|
1811
|
1 |
1 |
wantarray ? : |
|
1836
|
2 |
4 |
unless ref $array_item_subref eq 'CODE' |
|
1850
|
2 |
2 |
wantarray ? : |
|
1895
|
20 |
21 |
&$subref($key, $value) ? : |
|
1903
|
0 |
12 |
wantarray ? : |
|
1951
|
20 |
15 |
!&$subref($key, $value) ? : |
|
1959
|
0 |
10 |
wantarray ? : |
|
2011
|
1 |
0 |
wantarray ? : |