File Coverage

blib/lib/XAO/DO/Cache/Uncached.pm
Criterion Covered Total %
statement 16 17 94.1
branch n/a
condition n/a
subroutine 8 9 88.8
pod 0 5 0.0
total 24 31 77.4


line stmt bran cond sub pod time code
1             =head1 NAME
2              
3             XAO::DO::Cache::Uncached - a non-caching backend
4              
5             =head1 SYNOPSIS
6              
7             You should not use this object directly, it is a back-end for
8             XAO::Cache.
9              
10             =head1 DESCRIPTION
11              
12             Cache::Uncached is an implementation that always calls the retrieve
13             method without attempting any caching. Helpful in debugging and
14             development.
15              
16             =head1 METHODS
17              
18             =over
19              
20             =cut
21              
22             ###############################################################################
23             package XAO::DO::Cache::Uncached;
24 1     1   8 use strict;
  1         2  
  1         40  
25 1     1   6 use XAO::Utils;
  1         2  
  1         81  
26 1     1   6 use XAO::Objects;
  1         2  
  1         41  
27              
28 1     1   5 use base XAO::Objects->load(objname => 'Atom');
  1         2  
  1         5  
29              
30             ###############################################################################
31              
32             sub drop ($@) {
33 0     0 0 0 return undef;
34             }
35              
36             ###############################################################################
37              
38             sub drop_all ($$$) {
39 1     1 0 3 return undef;
40             }
41              
42             ###############################################################################
43              
44             sub get ($$) {
45 870     870 0 1432 return undef;
46             }
47              
48             ###############################################################################
49              
50             sub put ($$$) {
51 876     876 0 1277 return undef;
52             }
53              
54             ###############################################################################
55              
56             sub setup ($%) {
57 6     6 0 13 return undef;
58             }
59              
60             ###############################################################################
61             1;
62             __END__