File Coverage

blib/lib/Cache/Memcached/Managed/Inactive.pm
Criterion Covered Total %
statement 10 12 83.3
branch 2 2 100.0
condition 2 2 100.0
subroutine 6 8 75.0
pod 0 2 0.0
total 20 26 76.9


line stmt bran cond sub pod time code
1             package Cache::Memcached::Managed::Inactive;
2              
3             # Make sure we have version info for this module
4              
5             $VERSION= '0.25';
6              
7             #--------------------------------------------------------------------------
8 0         0 BEGIN { # We're fooling the Kwalitee checker into thinking we're strict
9 3     3   5139 use strict;
  3     0   14  
  3         406  
10             }
11              
12             #--------------------------------------------------------------------------
13             # No, we're NOT using strict here. There are several reasons, the most
14             # important is that we're doing a lot of nasty stuff here.
15             # If you _do_ want stricture as a developer of this module, simply activate
16             # the line below here
17             #--------------------------------------------------------------------------
18             #use strict;
19              
20             # Singleton object
21              
22             my $self;
23              
24             # At compile time
25             # Create accessors returning undef
26              
27             BEGIN {
28 3     3   288 *$_ = sub { undef } foreach qw(
  90     90   9205  
29             add
30             data
31             decr
32             delete
33             delete_group
34             delimiter
35             directory
36             expiration
37             flush_all
38             flush_interval
39             get
40             incr
41             namespace
42             replace
43             reset
44             set
45             start
46             stop
47             );
48              
49             # Create accessors returning hash ref
50              
51 3     35   125 *$_ = sub { {} } foreach qw(
  35         5725  
52             errors
53             get_group
54             get_multi
55             grab_group
56             group
57             stats
58             version
59             );
60              
61             # Create accessors returning list or hash ref
62              
63 3 100   30   209 *$_ = sub { wantarray ? () : {} } foreach qw(
  30         5292  
64             dead
65             group_names
66             servers
67             );
68             } #BEGIN
69              
70             # Satisfy -require-
71              
72             1;
73              
74             #---------------------------------------------------------------------------
75             #
76             # Class methods
77             #
78             #---------------------------------------------------------------------------
79             # new
80             #
81             # Return instantiated object
82             #
83             # IN: 1 class
84             # 2..N hash with parameters
85             # OUT: 1 instantiated object
86              
87 5   100 5 0 706 sub new { $self ||= bless {},shift } #new
88              
89             #---------------------------------------------------------------------------
90             #
91             # Object methods
92             #
93             #---------------------------------------------------------------------------
94             # inactive
95             #
96             # IN: 1 instantiated object
97             # OUT: 1 true
98              
99 0     0 0   sub inactive { 1 } #inactive
100              
101             #---------------------------------------------------------------------------
102              
103             __END__