File Coverage

blib/lib/DBIx/Aurora.pm

Criterion	Covered	Total	%
statement	12	22	54.5
branch	0	2	0.0
condition			n/a
subroutine	4	6	66.6
pod	0	1	0.0
total	16	31	51.6

package DBIx::Aurora;
use strict;
use warnings;
use Carp;
use DBIx::Aurora::Cluster;
our $VERSION = '0.01';
our $AUTOLOAD;

sub new {
    my ($class, %clusters) = @_;
    my $self = bless { clusters => {} }, $class;

    for my $cluster_name (keys %clusters) {
        my $config = $clusters{$cluster_name};
        $self->{clusters}{lc $cluster_name} = DBIx::Aurora::Cluster->new(@$config{qw/ instances opts /});
    }

    return $self;
}

sub AUTOLOAD {
    my ($self, @args) = @_;
    my $method = [ split /::/, $AUTOLOAD ]->[-1];
    $self->{clusters}{$method}
        or Carp::croak "Cannot find cluster `$method`. Available clusters are: "
            . join ", ", sort keys %{$self->{clusters}};
}

1;
__END__