File Coverage

blib/lib/CHI/Driver/Base/CacheContainer.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 10 10 100.0
pod 0 6 0.0
total 34 40 85.0


line stmt bran cond sub pod time code
1             package CHI::Driver::Base::CacheContainer;
2             $CHI::Driver::Base::CacheContainer::VERSION = '0.61';
3 1     1   652 use Moo;
  1         3  
  1         6  
4 1     1   359 use List::MoreUtils qw( all );
  1         3  
  1         18  
5 1     1   753 use strict;
  1         2  
  1         20  
6 1     1   5 use warnings;
  1         3  
  1         339  
7              
8             extends 'CHI::Driver';
9              
10             has '_contained_cache' => ( is => 'ro' );
11              
12             sub fetch {
13 1785     1785 0 5395 my ( $self, $key ) = @_;
14              
15 1785         6497 return scalar( $self->_contained_cache->get($key) );
16             }
17              
18             sub store {
19 546     546 0 2182 my $self = shift;
20              
21 546         2296 return $self->_contained_cache->set(@_);
22             }
23              
24             sub remove {
25 129     129 0 1996 my ( $self, $key ) = @_;
26              
27 129         604 $self->_contained_cache->remove($key);
28             }
29              
30             sub clear {
31 108     108 0 1356 my $self = shift;
32              
33 108         582 return $self->_contained_cache->clear(@_);
34             }
35              
36             sub get_keys {
37 123     123 0 62778 my $self = shift;
38              
39 123         623 return $self->_contained_cache->get_keys(@_);
40             }
41              
42             sub get_namespaces {
43 11     11 0 197 my $self = shift;
44              
45 11         53 return $self->_contained_cache->get_namespaces(@_);
46             }
47              
48             1;
49              
50             __END__