File Coverage

blib/lib/DBIx/CheckConnectivity.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	38	39	97.4

package DBIx::CheckConnectivity;

use warnings;
use strict;
use Carp;

our $VERSION     = '0.02';

use base 'Exporter';

our @EXPORT = qw/check_connectivity/;

use DBI;
use Params::Validate qw/:all/;
use UNIVERSAL::require;

sub check_connectivity {
    validate(
        @_,
        {
            dsn             => { type => SCALAR,  regex    => qr/^dbi:/ },
            user            => 0,
            password        => 0,
            attribute       => { type => HASHREF, optional => 1 },
        }
    );
    my %args = @_;
    my $dsn = $args{dsn};

    my ( $driver ) = $dsn =~ m/dbi:(\w+):/;
    my $driver_module = __PACKAGE__ . '::Driver::' . $driver;
    $driver_module->require
          or confess "$driver is not supported yet, sorry";
    $driver_module->check_connectivity( @_ );

}

1;

__END__