File Coverage

blib/lib/Search/GIN/Keys/Deep.pm
Criterion Covered Total %
statement 8 10 80.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 12 14 85.7


line stmt bran cond sub pod time code
1 1     1   45964 use strict;
  1         3  
  1         36  
2 1     1   7 use warnings;
  1         2  
  1         76  
3             package Search::GIN::Keys::Deep;
4             BEGIN {
5 1     1   31 $Search::GIN::Keys::Deep::AUTHORITY = 'cpan:NUFFIN';
6             }
7             # ABSTRACT:
8             $Search::GIN::Keys::Deep::VERSION = '0.09';
9 1     1   446 use Moose::Role;
  0            
  0            
10             use namespace::clean -except => 'meta';
11              
12             with qw(
13             Search::GIN::Keys
14             Search::GIN::Keys::Join
15             Search::GIN::Keys::Expand
16             );
17              
18             sub process_keys {
19             my ( $self, @keys ) = @_;
20              
21             $self->join_keys( $self->expand_keys(@keys) );
22             }
23              
24             1;
25              
26             __END__
27              
28             =pod
29              
30             =encoding UTF-8
31              
32             =head1 NAME
33              
34             Search::GIN::Keys::Deep - $Search::GIN::Keys::Deep::VERSION = '0.09';
35              
36             =head1 VERSION
37              
38             version 0.09
39              
40             =head1 SYNOPSIS
41              
42             with qw(Search::GIN::Keys::Deep);
43              
44             =head1 DESCRIPTION
45              
46             =head1 AUTHOR
47              
48             יובל קוג'מן (Yuval Kogman) <nothingmuch@woobling.org>
49              
50             =head1 COPYRIGHT AND LICENSE
51              
52             This software is copyright (c) 2008 by יובל קוג'מן (Yuval Kogman), Infinity Interactive.
53              
54             This is free software; you can redistribute it and/or modify it under
55             the same terms as the Perl 5 programming language system itself.
56              
57             =cut