| line |
true |
false |
branch |
|
20
|
0 |
16 |
if (&blessed($proto)) { }
|
|
32
|
0 |
0 |
if (my $next = $obj->can('next') and my $all = $obj->can('all') and my $reset = $obj->can('reset') and my $count = $obj->can('count')) { }
|
|
39
|
0 |
0 |
if defined $filter_cb
|
|
40
|
0 |
0 |
if defined $grep_cb
|
|
41
|
0 |
0 |
if defined $sort_cb
|
|
49
|
0 |
0 |
if (my $next = $obj->$next) { }
|
|
59
|
0 |
0 |
$index - 1 == 0 ? :
|
|
60
|
0 |
0 |
$index == &$count($obj) ? :
|
|
61
|
0 |
0 |
$index % 2 ? :
|
|
62
|
0 |
0 |
$index % 2 ? :
|
|
66
|
0 |
0 |
if (my $fields = $obj->can($options->{'fields_method'} || 'display_fields')) { }
|
|
82
|
0 |
1 |
defined $filter_cb ? :
|
|
85
|
0 |
0 |
&$grep_cb($options->{'pure'}, $_, $hash{$_}) ? :
|
|
|
0 |
1 |
defined $grep_cb ? :
|
|
88
|
1 |
0 |
if (defined $sort_cb)
|
|
101
|
1 |
4 |
if $index > $#keys
|
|
110
|
0 |
0 |
$index - 1 == 0 ? :
|
|
111
|
0 |
0 |
$index - 1 == $#keys ? :
|
|
112
|
0 |
0 |
$index % 2 ? :
|
|
113
|
0 |
0 |
$index % 2 ? :
|
|
120
|
0 |
15 |
defined $filter_cb ? :
|
|
123
|
1 |
14 |
if (defined $grep_cb)
|
|
124
|
2 |
1 |
&$grep_cb($options->{'pure'}, $_) ? :
|
|
127
|
1 |
14 |
if (defined $sort_cb)
|
|
139
|
16 |
37 |
if $index > $#array
|
|
147
|
0 |
0 |
$index - 1 == 0 ? :
|
|
148
|
0 |
0 |
$index - 1 == $#array ? :
|
|
149
|
0 |
0 |
$index % 2 ? :
|
|
150
|
0 |
0 |
$index % 2 ? :
|