File Coverage

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

Criterion	Covered	Total	%
statement	28	28	100.0
branch	7	10	70.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	42	45	93.3

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

use DBIx::Connector;
use Scalar::Util qw( blessed );
use Types::Standard qw( InstanceOf ArrayRef );

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->resource_method_name( 'connector' );

    return;
};

has _custom_connector => (
    is       => 'ro',
    isa      => InstanceOf[ 'DBIx::Connector' ] | ArrayRef,
    init_arg => 'connector',
    clearer  => '_clear_custom_connector',
);

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

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

    my $connector = $self->_custom_connector();
    $self->_clear_custom_connector();
    return $connector if blessed $connector;

    return DBIx::Connector->new( @$connector ) if $connector;

    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__