|
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 |
} |