File Coverage

blib/lib/DBIx/Skinny/Mixin/DBHResolver.pm

Criterion	Covered	Total	%
statement	10	26	38.4
branch			n/a
condition			n/a
subroutine	4	12	33.3
pod	0	1	0.0
total	14	39	35.9

package DBIx::Skinny::Mixin::DBHResolver;
use strict;
use warnings;
our $VERSION = '0.04';

sub register_method {
    +{
        'dbh_resolver' => sub {
            my $class = shift;
            DBIx::Skinny::Mixin::DBHResolver::Base->new({skinny => $class});
        },
    },
}

package DBIx::Skinny::Mixin::DBHResolver::Base;
use DBIx::DBHResolver;

sub new {
    my ($class, $args) = @_;
    bless $args, $class;
}

sub conf {
    my ($self, $conf) = @_;
    DBIx::DBHResolver->config($conf);
}

sub cluster      { shift; DBIx::DBHResolver->cluster(@_)      }
sub connect_info { shift; DBIx::DBHResolver->connect_info(@_) }
sub load         { shift; DBIx::DBHResolver->load(@_)         }

sub connect {
    my $self = shift;
    $self->{skinny}->set_dbh(DBIx::DBHResolver->connect(@_));
}

sub connect_cached {
    my $self = shift;
    $self->{skinny}->set_dbh(DBIx::DBHResolver->connect_cached(@_));
}

1;
__END__