File Coverage

blib/lib/Net/WURFL/ScientiaMobile/Cache/Null.pm
Criterion Covered Total %
statement 5 19 26.3
branch n/a
condition n/a
subroutine 3 17 17.6
pod 0 16 0.0
total 8 52 15.3


line stmt bran cond sub pod time code
1             package Net::WURFL::ScientiaMobile::Cache::Null;
2 1     1   602 use Moo;
  1         1  
  1         7  
3              
4             with 'Net::WURFL::ScientiaMobile::Cache';
5              
6 1     1 0 657 sub getDevice { 0 }
7 0     0 0 0 sub getDeviceFromID { 0 }
8 0     0 0 0 sub setDevice { 1 }
9 0     0 0 0 sub setDeviceFromID { 1 }
10 0     0 0 0 sub getMtime { 0 }
11 0     0 0 0 sub setMtime { 1 }
12 0     0 0 0 sub purge { 1 }
13 0     0 0 0 sub incrementHit {}
14 0     0 0 0 sub incrementMiss {}
15 0     0 0 0 sub incrementError {}
16 0     0 0 0 sub getCounters { { hit => 0, miss => 0, error => 0, age => 0 } }
17 0     0 0 0 sub resetCounters {}
18 0     0 0 0 sub resetReportAge {}
19 1     1 0 14 sub getReportAge { 0 }
20 0     0 0   sub stats { {} }
21 0     0 0   sub close {}
22              
23             =head1 NAME
24              
25             Net::WURFL::ScientiaMobile::Cache::Null - Bogus non-caching cache provider for the WURFL Cloud Client
26              
27             =head1 SYNOPSIS
28              
29             use Net::WURFL::ScientiaMobile;
30             use Net::WURFL::ScientiaMobile::Cache::Null;
31            
32             my $scientiamobile = Net::WURFL::ScientiaMobile->new(
33             api_key => '...',
34             cache => Net::WURFL::ScientiaMobile::Cache::Null->new,
35             );
36              
37             =head1 DESCRIPTION
38              
39             The Null WURFL Cloud Client Cache Provider. This exists only to disable caching and should not be
40             used for production installations.
41              
42             =head1 SEE ALSO
43              
44             L, L
45              
46             =head1 COPYRIGHT & LICENSE
47              
48             Copyright 2012, ScientiaMobile, Inc.
49              
50             This program is free software; you can redistribute it and/or modify
51             it under the same terms as Perl itself.
52              
53             =cut
54              
55             1;