/usr/share/perl5/Cache/Memcached/Managed/Inactive.pm is in libcache-memcached-managed-perl 0.24-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 | package Cache::Memcached::Managed::Inactive;
# Make sure we have version info for this module
$VERSION= '0.24';
#--------------------------------------------------------------------------
BEGIN { # We're fooling the Kwalitee checker into thinking we're strict
use strict;
}
#--------------------------------------------------------------------------
# No, we're NOT using strict here. There are several reasons, the most
# important is that we're doing a lot of nasty stuff here.
# If you _do_ want stricture as a developer of this module, simply activate
# the line below here
#--------------------------------------------------------------------------
#use strict;
# Singleton object
my $self;
# At compile time
# Create accessors returning undef
BEGIN {
*$_ = sub { undef } foreach qw(
add
data
decr
delete
delete_group
delimiter
directory
expiration
flush_all
flush_interval
get
incr
namespace
replace
reset
set
start
stop
);
# Create accessors returning hash ref
*$_ = sub { {} } foreach qw(
errors
get_group
get_multi
grab_group
group
stats
version
);
# Create accessors returning list or hash ref
*$_ = sub { wantarray ? () : {} } foreach qw(
dead
group_names
servers
);
} #BEGIN
# Satisfy -require-
1;
#---------------------------------------------------------------------------
#
# Class methods
#
#---------------------------------------------------------------------------
# new
#
# Return instantiated object
#
# IN: 1 class
# 2..N hash with parameters
# OUT: 1 instantiated object
sub new { $self ||= bless {},shift } #new
#---------------------------------------------------------------------------
#
# Object methods
#
#---------------------------------------------------------------------------
# inactive
#
# IN: 1 instantiated object
# OUT: 1 true
sub inactive { 1 } #inactive
#---------------------------------------------------------------------------
__END__
=head1 NAME
Cache::Memcached::Managed::Inactive - inactive Cache::Memcache::Managed object
=head1 SYNOPSIS
use Cache::Memcached::Managed::Inactive;
my $cache = Cache::Memcached::Managed::Inactive->new;
=head1 DESCRIPTION
Provides the same API as L<Cache::Memcached::Managed>, but doesn't do anything.
=head1 AUTHOR
Elizabeth Mattijsen
=head1 COPYRIGHT
(C) 2005 - 2006 BOOKINGS
(C) 2007 BOOKING.COM
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
=cut
|