File Coverage

lib/CHI/Config/Driver.pm

Criterion	Covered	Total	%
statement	18	25	72.0
branch	1	4	25.0
condition			n/a
subroutine	6	7	85.7
pod	2	2	100.0
total	27	38	71.0

use 5.006;
use strict;
use warnings;

package CHI::Config::Driver;

our $VERSION = '0.001000'; # TRIAL

# ABSTRACT: Container for Driver configuration

our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY

use Moo qw( has );

has 'name'     => ( is => 'ro', required => 1 );
has 'file'     => ( is => 'ro', required => 1 );
has 'entry_no' => ( is => 'ro', required => 1 );
has 'config'   => ( is => 'ro', required => 1 );
has 'memoize'  => ( is => 'ro', lazy     => 1, default => undef );

sub get_cache {
  my ($self) = @_;
  return $self->{_cache} if exists $self->{_cache};

  require CHI;
  require Storable;

  my $instance = CHI->new( %{ Storable::dclone( $self->config ) } );

  $self->{_cache} = $instance if $self->memoize;

  return $instance;
}

sub source {
  my ($self) = @_;
  return sprintf '%s ( entry #%s )', $self->file, $self->entry_no;
}

no Moo;

1;

__END__