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