package Moo::Role::DBIConnection;
use Moo::Role;
use feature 'signatures';
no warnings 'experimental::signatures';
use DBI;

our $VERSION = '0.01';

=head1 NAME

Moo::Role::DBIConnection

=head1 SYNOPSIS

    { package My::Example;
      use Moo 2;
      with 'Moo::Role::DBIConnection';
    };

    # Connect using the parameters
    my $writer = My::Example->new(
        dbh => {
            dsn  => '...',
            user => '...',
            password => '...',
            options => '...',
        },
    );

    # ... or alternatively if you have a connection already
    my $writer2 = My::Example->new(
        dbh => $dbh,
    );

=cut

has 'dbh' => (
    is => 'ro',
    coerce  => \&_coerce_db,
);

sub _coerce_db {
    my $connection_data = shift;
    return UNIVERSAL::isa($connection_data,'DBI::db') ?
        $connection_data :
        DBI->connect( @$connection_data{qw(dsn user password options)} );
}

1;