File Coverage

blib/lib/Pinwheel/Database.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch	24	26	92.3
condition			n/a
subroutine	17	17	100.0
pod	11	13	84.6
total	91	95	95.7

package Pinwheel::Database;

use strict;
use warnings;

use Exporter;
use Carp;

our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
    set_backend set_connection connect finish_all
    prepare do describe tables
    without_foreign_keys dbhostname
    fetchone_tables fetchall_tables
);

our $backend;



sub set_backend
{
    $backend = $_[0];
}

sub set_connection
{
    my ($class);

    croak "Missing database connection details." unless (defined $_[0]);

    $class = $_[0];
    $class =~ s/dbi:(.)(.+?):.*/Pinwheel::Database::\u$1\L$2/;

    eval "require $class" or croak "Failed to load database backend: $class";
    set_backend( $class->new( @_ ) );
}

sub connect
{
    croak "No database configured" unless ($backend);
    return $backend->connect(@_);
}

sub disconnect
{
    return $backend->disconnect(@_) if ($backend);
}

sub finish_all
{
    return $backend->finish_all(@_) if ($backend);
}

sub do
{
    croak "No database configured" unless ($backend);
    return $backend->do(@_);
}

sub without_foreign_keys(&)
{
    croak "No database configured" unless ($backend);
    return $backend->without_foreign_keys(@_);
}

sub prepare
{
    croak "No database configured" unless ($backend);
    return $backend->prepare(@_);
}

sub describe
{
    croak "No database configured" unless ($backend);
    return $backend->describe(@_);
}

sub tables
{
    croak "No database configured" unless ($backend);
    return $backend->tables(@_);
}

sub dbhostname
{
    croak "No database configured" unless ($backend);
    return $backend->dbhostname(@_);
}

sub fetchone_tables
{
    croak "No database configured" unless ($backend);
    return $backend->fetchone_tables(@_);
}

sub fetchall_tables
{
    croak "No database configured" unless ($backend);
    return $backend->fetchall_tables(@_);
}


1;

__DATA__