File Coverage

blib/lib/Hook/Modular/CacheProxy.pm

Criterion	Covered	Total	%
statement	15	21	71.4
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod	2	2	100.0
total	23	31	74.1

use 5.008;
use strict;
use warnings;

package Hook::Modular::CacheProxy;
BEGIN {
  $Hook::Modular::CacheProxy::VERSION = '1.101050';
}
# ABSTRACT: Cache proxy for Hook::Modular

sub new {
    my ($class, $plugin, $cache) = @_;
    bless {
        namespace => $plugin->plugin_id,
        cache     => $cache,
    }, $class;
}
for my $meth (qw(get get_callback set remove)) {
    no strict 'refs';
    *{$meth} = sub {
        my $self = shift;
        my $key  = shift;
        $key = "$self->{namespace}|$key";
        $self->{cache}->$meth($key, @_);
    };
}

sub path_to {
    my ($self, @path) = @_;
    $self->{cache}->path_to($self->{namespace}, @path);
}
1;


__END__