File Coverage

blib/lib/Terse/Plugin/CHI.pm

Criterion	Covered	Total	%
statement	17	29	58.6
branch	0	4	0.0
condition	0	6	0.0
subroutine	6	9	66.6
pod	0	3	0.0
total	23	51	45.1

package Terse::Plugin::CHI;
use 5.006; use strict; use warnings;
our $VERSION = '0.01';
use base 'Terse::Plugin';
use CHI; use JSON;

sub build_plugin {
	my ($self) = @_;
	$self->cache = CHI->new(
		driver => 'Memory',
		global => 1,
		($self->chi ? %{ $self->chi } : ())
	);
}

sub set {
	my ($self, $content, $timeout, $unique) = @_;
	$unique ||= [caller(1)]->[3];
	$self->cache->set( $unique, $content->response->serialize(), (defined $timeout ? $timeout : ()) );
	return $content;
}

sub get {
	my ($self, $t, $unique) = @_;
	$unique ||= [caller(1)]->[3];
	my $c = $self->cache->get($unique);
	$t->graft('response', $c);
	return $t;
}

1;

__END__