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   1691 use strict;
  4         9  
  4         146  
2 4     4   16 use warnings;
  4         6  
  4         180  
3             package Search::GIN::Keys::Join;
4              
5             our $VERSION = '0.11';
6              
7 4     4   14 use Moose::Role;
  4         5  
  4         27  
8 4     4   16517 use namespace::autoclean;
  4         9  
  4         27  
9              
10             sub join_keys {
11 23     23 0 6105 my ( $self, @keys ) = @_;
12 23         48 map { $self->join_key($_) } @keys;
  43         68  
13             }
14              
15             sub join_key {
16 43     43 0 57 my ( $self, @key ) = @_;
17 4     4   591 no warnings 'uninitialized';
  4         8  
  4         374  
18 43 50       52 join ":", map { ref($_) ? @$_ : $_ } @key;
  43         263  
19             }
20              
21             1;