File Coverage

blib/lib/Embedix/DB.pm

Criterion	Covered	Total	%
statement	12	19	63.1
branch	0	2	0.0
condition	0	3	0.0
subroutine	4	5	80.0
pod	1	1	100.0
total	17	30	56.6

package Embedix::DB;

use strict;
use vars qw($VERSION $AUTOLOAD);

# this class is central all things configuration-related
use Embedix::ECD;

# database back ends
use Embedix::DB::Pg;
#se Embedix::DB::mysql;

$VERSION = 0.05;

# Embedix::DB->new (
#   backend => 'Pg' # only one implemented so far
#   source  => [ 'dbi:Pg:dbname=embedix', $user, $password, $opt ],
# );
#
# factory method for Embedix::DB::* objects
#_______________________________________
sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;
    (@_ & 1) && die("Odd number of parameters.");
    my %opt   = @_;

    # FIXME : this needs to be much more robust

    my $edb_class = "Embedix::DB::" . $opt{backend};

    my $self = $edb_class->new(source => $opt{source});

    return $self;
}


1;

__END__