File Coverage

blib/lib/Pinwheel/Cache/Null.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 5 0.0
total 19 24 79.1


line stmt bran cond sub pod time code
1             package Pinwheel::Cache::Null;
2              
3 1     1   5 use strict;
  1         2  
  1         29  
4 1     1   5 use warnings;
  1         2  
  1         126  
5              
6             sub new
7             {
8 3     3 0 17 my $class = shift;
9 3         20 return bless({}, $class);
10             }
11              
12             sub get
13             {
14 6     6 0 23 return undef;
15             }
16              
17             sub set
18             {
19 6     6 0 25 return 0;
20             }
21              
22             sub remove
23             {
24 1     1 0 6 return 0;
25             }
26              
27             sub clear
28             {
29 1     1 0 6 return 1;
30             }
31              
32              
33             1;
34              
35             __DATA__