File Coverage

lib/SQL/Admin.pm

Criterion	Covered	Total	%
statement	12	34	35.2
branch	0	12	0.0
condition	0	9	0.0
subroutine	4	9	44.4
pod	0	4	0.0
total	16	68	23.5

package SQL::Admin;

use strict;
use warnings;

our $VERSION = v0.5.0;

######################################################################

use Module::Load qw();
use SQL::Admin::Utils qw( refarray );

######################################################################

our %CATALOG_MAP;

######################################################################
######################################################################
sub new {                                # ;
    my $class = shift;
    $class = ref $class if ref $class;

    bless {
        -sql_admin_search => [ $class, $class ne __PACKAGE__ ? __PACKAGE__ : () ],
    }, $class;
}


######################################################################
######################################################################
sub _load_and_new {                      # ;
    my ($self, $class, @args) = @_;

    Module::Load::load ($class);
    $class->new (@args);
}


######################################################################
######################################################################
sub get_driver {                         # ;
    my ($self, $name, @args) = @_;
    my $retval;

    $retval ||= eval { $self->_load_and_new ($_ . '::Driver::' . $name, @args) }
      for @{ $self->{-sql_admin_search} };

    ##################################################################

    $retval;
}


######################################################################
######################################################################
sub get_catalog {                        # ;
    my ($self, $name, @args) = @_;

    my $cat;
    $cat = $CATALOG_MAP{$name}
      if ( (defined $name) and ($CATALOG_MAP{$name}));

    $cat ||= $self->_load_and_new ('SQL::Admin::Catalog', @args);

    $CATALOG_MAP{$name} = $cat if defined $name;

    ##################################################################

    $cat;
}


######################################################################
######################################################################
sub compare {                            # ;
    my $self = shift;
    my $args = shift if @_ > 2;

    my ($src, $dst) = map refarray ($_) ? $self->get_catalog->load (@$_) : $_, @_;

    $self
      ->_load_and_new ('SQL::Admin::Catalog::Compare', %$args)
      ->compare ($src, $dst)
      ;
}


######################################################################
######################################################################

package SQL::Admin;

1;

__END__