File Coverage

blib/lib/DBIx/Inspector.pm

Criterion	Covered	Total	%
statement	27	36	75.0
branch	0	4	0.0
condition			n/a
subroutine	9	10	90.0
pod	1	1	100.0
total	37	51	72.5

package DBIx::Inspector;
use strict;
use warnings;
use 5.008001;
our $VERSION = '0.12';
use Class::Accessor::Lite;
Class::Accessor::Lite->mk_accessors(qw/dbh catalog schema driver/);
use Carp ();
use DBIx::Inspector::Table;
use DBIx::Inspector::Iterator;
use DBIx::Inspector::ForeignKey;
use Module::Load ();

sub new {
    my $class = shift;
    my %args = @_ == 1 ? %{ $_[0] } : @_;
    my $dbh = $args{dbh};
    Carp::croak("missing mandatory parameter: dbh") unless $dbh;
    my $driver_name = $dbh->{Driver}->{Name};
    my $driver_class = "$class\::Driver::$driver_name";
    Module::Load::load($driver_class);
    return $driver_class->new(%args);
}

1;
__END__