File Coverage

blib/lib/Curio/Role/CHI.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	31	32	96.8

package Curio::Role::CHI;
our $VERSION = '0.02';

use CHI;
use Scalar::Util qw( blessed );
use Types::Standard qw( InstanceOf HashRef );

use Moo::Role;
use strictures 2;
use namespace::clean;

with 'Curio::Role';

after initialize => sub{
    my ($class) = @_;

    my $factory = $class->factory();

    $factory->does_caching( 1 );
    $factory->cache_per_process( 1 );
    $factory->resource_method_name( 'chi' );

    return;
};

has _custom_chi => (
    is       => 'ro',
    isa      => InstanceOf[ 'CHI::Driver' ] | HashRef,
    required => 1,
    init_arg => 'chi',
    clearer  => '_clear_custom_chi',
);

has chi => (
    is       => 'lazy',
    init_arg => undef,
);

sub _build_chi {
    my ($self) = @_;

    my $chi = $self->_custom_chi();
    $self->_clear_custom_chi();
    return $chi if blessed $chi;

    return CHI->new( %$chi );
}

1;
__END__