File Coverage

blib/lib/Curio/Role/DBIx/Connector.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	6	6	100.0
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	33	33	100.0

package Curio::Role::DBIx::Connector;
our $VERSION = '0.01';

use DBIx::Connector;
use Types::Standard qw( InstanceOf );

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 );

    return;
};

has connector => (
    is  => 'lazy',
    isa => InstanceOf[ 'DBIx::Connector' ],
);

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

    my $dsn        = $self->dsn();
    my $username   = $self->can('username') ? $self->username() : '';
    my $password   = $self->can('password') ? $self->password() : '';
    my $attributes = $self->can('attributes') ? $self->attributes() : {};

    return DBIx::Connector->new(
        $dsn,
        $username,
        $password,
        {
            AutoCommit => 1,
            %$attributes,
        },
    );
}

1;
__END__