File Coverage

blib/lib/Cache/Ref/Null.pm
Criterion Covered Total %
statement 3 5 60.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 6 8 75.0


line stmt bran cond sub pod time code
1             package Cache::Ref::Null;
2             BEGIN {
3 1     1   954 $Cache::Ref::Null::AUTHORITY = 'cpan:NUFFIN';
4             }
5             BEGIN {
6 1     1   20 $Cache::Ref::Null::VERSION = '0.05'; # TRIAL
7             }
8             # ABSTRACT: Caches nothing
9              
10 1     1   2213 use Moose;
  0            
  0            
11              
12             use namespace::autoclean;
13              
14             extends qw(Cache::Ref);
15              
16             with qw(Cache::Ref::Role::API);
17              
18             sub get { return }
19             sub hit { return }
20             sub set { return }
21             sub remove { return }
22             sub clear { return }
23             sub expire { return }
24             sub compute { return }
25              
26             __PACKAGE__->meta->make_immutable;
27              
28             __PACKAGE__;
29              
30              
31              
32             =pod
33              
34             =encoding utf-8
35              
36             =head1 NAME
37              
38             Cache::Ref::Null - Caches nothing
39              
40             =head1 SYNOPSIS
41              
42             # useful for comparing the effect of a cache compared to no
43             # caching without code changes:
44              
45             my $c = Cache::Profile::Compare->new(
46             caches => [
47             Cache::Ref::Foo->new( ... ),
48             Cache::Ref->Null->new,
49             ],
50             );
51              
52             =head1 DESCRIPTION
53              
54             This cache implementation will cache nothing.
55              
56             This is primarily intended for testing or comparing runtime
57             without a cache against runtime with a cache.
58              
59             It's like L<Cache::Null> but supports the additional methods in
60             L<Cache::Ref>.
61              
62             =head1 AUTHOR
63              
64             Yuval Kogman
65              
66             =head1 COPYRIGHT AND LICENSE
67              
68             This software is copyright (c) 2011 by Yuval Kogman.
69              
70             This is free software; you can redistribute it and/or modify it under
71             the same terms as the Perl 5 programming language system itself.
72              
73             =cut
74              
75              
76             __END__
77              
78              
79             # ex: set sw=4 et: