File Coverage

blib/lib/Hook/Modular/Cache/Null.pm
Criterion Covered Total %
statement 11 17 64.7
branch n/a
condition n/a
subroutine 5 8 62.5
pod 4 4 100.0
total 20 29 68.9


line stmt bran cond sub pod time code
1 10     10   248 use 5.008;
  10         34  
  10         430  
2 10     10   68 use strict;
  10         21  
  10         349  
3 10     10   57 use warnings;
  10         19  
  10         540  
4              
5             package Hook::Modular::Cache::Null;
6             BEGIN {
7 10     10   1573 $Hook::Modular::Cache::Null::VERSION = '1.101050';
8             }
9             # ABSTRACT: Null cache
10              
11             sub new {
12 12     12 1 231 bless {}, shift;
13             }
14              
15             sub get {
16 0     0 1   my ($self, $key) = @_;
17 0           $self->{$key};
18             }
19              
20             sub set {
21 0     0 1   my ($self, $key, $value) = @_;
22 0           $self->{$key} = $value;
23             }
24              
25             sub remove {
26 0     0 1   my ($self, $key) = @_;
27 0           delete $self->{$key};
28             }
29             1;
30              
31              
32             __END__