Lines 92-97
sub set_in_cache {
Link Here
|
92 |
croak "No key" unless $key; |
92 |
croak "No key" unless $key; |
93 |
$ENV{DEBUG} && warn "set_in_cache for $key"; |
93 |
$ENV{DEBUG} && warn "set_in_cache for $key"; |
94 |
|
94 |
|
|
|
95 |
return unless $self->{cache}; |
95 |
return unless $self->{have_chi}; |
96 |
return unless $self->{have_chi}; |
96 |
|
97 |
|
97 |
if ( defined $expiry ) { |
98 |
if ( defined $expiry ) { |
Lines 106-111
sub get_from_cache {
Link Here
|
106 |
my ( $self, $key ) = @_; |
107 |
my ( $self, $key ) = @_; |
107 |
croak "No key" unless $key; |
108 |
croak "No key" unless $key; |
108 |
$ENV{DEBUG} && warn "get_from_cache for $key"; |
109 |
$ENV{DEBUG} && warn "get_from_cache for $key"; |
|
|
110 |
return unless $self->{cache}; |
109 |
return unless $self->{have_chi}; |
111 |
return unless $self->{have_chi}; |
110 |
return $self->{cache}->get($key); |
112 |
return $self->{cache}->get($key); |
111 |
} |
113 |
} |
Lines 113-124
sub get_from_cache {
Link Here
|
113 |
sub clear_from_cache { |
115 |
sub clear_from_cache { |
114 |
my ( $self, $key ) = @_; |
116 |
my ( $self, $key ) = @_; |
115 |
croak "No key" unless $key; |
117 |
croak "No key" unless $key; |
|
|
118 |
return unless $self->{cache}; |
116 |
return unless $self->{have_chi}; |
119 |
return unless $self->{have_chi}; |
117 |
return $self->{cache}->remove($key); |
120 |
return $self->{cache}->remove($key); |
118 |
} |
121 |
} |
119 |
|
122 |
|
120 |
sub flush_all { |
123 |
sub flush_all { |
121 |
my $self = shift; |
124 |
my $self = shift; |
|
|
125 |
return unless $self->{cache}; |
122 |
return unless $self->{have_chi}; |
126 |
return unless $self->{have_chi}; |
123 |
return $self->{cache}->clear(); |
127 |
return $self->{cache}->clear(); |
124 |
} |
128 |
} |