line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
1
|
|
|
1
|
|
372
|
use strict; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
32
|
|
2
|
1
|
|
|
1
|
|
3
|
use warnings; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
41
|
|
3
|
|
|
|
|
|
|
package Search::GIN::DelegateToIndexed; |
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
our $VERSION = '0.11'; |
6
|
|
|
|
|
|
|
|
7
|
1
|
|
|
1
|
|
3
|
use Moose::Role; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
6
|
|
8
|
1
|
|
|
1
|
|
3429
|
use namespace::autoclean; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
5
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
with qw(Search::GIN::Core); |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
requires "ids_to_objects"; |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
sub extract_values { |
15
|
3
|
|
|
3
|
0
|
6
|
my ( $self, $obj, @args ) = @_; |
16
|
3
|
|
|
|
|
8
|
$obj->gin_extract_values($self, @args); |
17
|
|
|
|
|
|
|
} |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
sub compare_values { |
20
|
0
|
|
|
0
|
0
|
|
my ( $self, $obj, @args ) = @_; |
21
|
0
|
|
|
|
|
|
$obj->gin_compare_values($self, @args); |
22
|
|
|
|
|
|
|
} |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
sub objects_to_ids { |
25
|
0
|
|
|
0
|
0
|
|
my ( $self, @objs ) = @_; |
26
|
0
|
|
|
|
|
|
map { $_->gin_id } @objs; |
|
0
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
} |
28
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
1; |