File Coverage

lib/CHI/Config/DriverPool.pm

Criterion	Covered	Total	%
statement	33	39	84.6
branch	3	4	75.0
condition			n/a
subroutine	10	10	100.0
pod	3	3	100.0
total	49	56	87.5

use 5.006;
use strict;
use warnings;

package CHI::Config::DriverPool;

our $VERSION = '0.001000'; # TRIAL

# ABSTRACT: A Collection of Driver definitions

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

use Moo qw( has );
use Carp qw( carp croak );

## no critic (ValuesAndExpressions::ProhibitConstantPragma)
use constant DEBUGGING => $ENV{CHI_CONFIG_DEBUG};

has '_drivers' => ( is => ro =>, lazy => 1, default => sub { {} } );

sub add_driver {
  my ( $self, %config ) = @_;

  require CHI::Config::Driver;

  my $instance = CHI::Config::Driver->new(%config);
  my $name     = $instance->name;

  if ( not exists $self->_drivers->{$name} ) {
    $self->_drivers->{$name} = $instance;
    return;
  }
  return unless DEBUGGING;
  ## Shadowing should be default anyway.
  my $template = '%s: %s';
  my $old      = sprintf $template, '   Kept', $self->_drivers->{$name}->source;
  my $new      = sprintf $template, 'Ignored', $instance->source;
  carp "Duplicate Driver definition ignored\n\t$old\n\t$new\n";
  return;
}

sub get_driver {
  my ( $self, $name ) = @_;
  return $self->_drivers->{$name} if exists $self->_drivers->{$name};
  croak "No default for driver <$name> defined and none specified in configuration";
}

sub get_cache {
  my ( $self, $name ) = @_;
  return $self->get_driver($name)->get_cache;
}

no Moo;

1;

__END__