no warnings 'uninitialized';
Carp::croak("$backend does not look like a cache backend - "
- . "it must be an object supporting get, set and delete")
- unless eval { $backend->can("get") && $backend->can("set") && $backend->can("delete") };
+ . "it must be an object supporting get, set and remove")
+ unless eval { $backend->can("get") && $backend->can("set") && $backend->can("remove") };
$c->_cache_backends->{$name} = $backend;
}
$c->choose_cache_backend_wrapper( key => $key, @meta )->get( $key );
}
-sub cache_delete {
+sub cache_remove {
my ( $c, $key, @meta ) = @_;
- $c->choose_cache_backend_wrapper( key => $key, @meta )->delete( $key );
+ $c->choose_cache_backend_wrapper( key => $key, @meta )->remove( $key );
}
__PACKAGE__;
my ( $self, $key ) = @_;
}
-sub delete {
+sub remove {
my ( $self, $key ) = @_;
}
=head1 DESCRIPTION
+This is less than L<Cache::Cache>.
+
=cut
$self->c->cache_get( $key, @{ $self->meta } );
}
-sub delete {
+sub remove {
my ( $self, $key ) = @_;
- $self->c->cache_delete( $key, @{ $self->meta } );
+ $self->c->cache_remove( $key, @{ $self->meta } );
}
__PACKAGE__;
=head1 NAME
Catalyst::Plugin::Cache::Curried - Curried versions of C<cache_set>,
-C<cache_get> and C<cache_delete> that look more like a backend.
+C<cache_get> and C<cache_remove> that look more like a backend.
=head1 SYNOPSIS
sub new { bless {}, shift }
sub get { ${thaw($_[0]{$_[1]}) || return} };
sub set { $_[0]{$_[1]} = freeze(\$_[2]) };
- sub delete { delete $_[0]{$_[1]} };
+ sub remove { delete $_[0]{$_[1]} };
}
MockApp->setup;
can_ok( $c, "cache_set" );
can_ok( $c, "cache_get" );
-can_ok( $c, "cache_delete" );
+can_ok( $c, "cache_remove" );
$c->cache_set( foo => "bar" );
is( $c->cache_get("foo"), "bar", "set" );
-$c->cache_delete( "foo" );
-is( $c->cache_get("foo"), undef, "delete" );
+$c->cache_remove( "foo" );
+is( $c->cache_get("foo"), undef, "remove" );
MockApp->register_cache_backend( elk => MemoryCache->new );
foo => {
bah => "foo",
},
- bar => MemoryCache->new,
+ bar => bless( {}, "SomeClass" ),
},
},
);
sub config { \%config };
- package MemoryCache;
- use Storable qw/freeze thaw/;
-
- sub new { bless {}, shift }
- sub get { ${thaw($_[0]{$_[1]}) || return} };
- sub set { $_[0]{$_[1]} = freeze(\$_[2]) };
- sub delete { delete $_[0]{$_[1]} };
+ package SomeClass;
+ sub get {}
+ sub set {}
+ sub remove {}
}
MockApp->setup;
my $c = bless {}, "MockApp";
-MockApp->register_cache_backend( default => MemoryCache->new );
+MockApp->register_cache_backend( default => bless({}, "SomeClass") );
can_ok( $c, "curry_cache" );
can_ok( $c, "get_preset_curried" );
sub new { bless {}, shift }
sub get { ${thaw($_[0]{$_[1]}) || return} };
sub set { $_[0]{$_[1]} = freeze(\$_[2]) };
- sub delete { delete $_[0]{$_[1]} };
+ sub remove { delete $_[0]{$_[1]} };
}