File Coverage

blib/lib/Search/GIN/Keys/Join.pm
Criterion Covered Total %
statement 21 21 100.0
branch 1 2 50.0
condition n/a
subroutine 7 7 100.0
pod 0 2 0.0
total 29 32 90.6


line stmt bran cond sub pod time code
1 4     4   1647 use strict;
  4         8  
  4         150  
2 4     4   19 use warnings;
  4         7  
  4         203  
3             package Search::GIN::Keys::Join;
4             our $VERSION = '0.10';
5 4     4   16 use Moose::Role;
  4         6  
  4         28  
6 4     4   15823 use namespace::autoclean;
  4         7  
  4         28  
7              
8             sub join_keys {
9 23     23 0 4458 my ( $self, @keys ) = @_;
10 23         39 map { $self->join_key($_) } @keys;
  43         60  
11             }
12              
13             sub join_key {
14 43     43 0 44 my ( $self, @key ) = @_;
15 4     4   458 no warnings 'uninitialized';
  4         11  
  4         307  
16 43 50       34 join ":", map { ref($_) ? @$_ : $_ } @key;
  43         219  
17             }
18              
19             1;