File Coverage

blib/lib/Apache/Voodoo/Table/Probe.pm

Criterion	Covered	Total	%
statement	9	19	47.3
branch	0	2	0.0
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	26	46.1

package Apache::Voodoo::Table::Probe;

$VERSION = "3.0200";

use strict;
use warnings;

use DBI;

sub new {
	my $class = shift;
	my $dbh   = shift;

	# From the DBI docs.  This will give use the database server name
	my $db_type = $dbh->get_info(17);

	my $obj  = "Apache::Voodoo::Table::Probe::$db_type";
	my $file = "Apache/Voodoo/Table/Probe/$db_type.pm";

	eval {
		require $file;
	};
	if ($@) {
		die "$db_type isn't supported\n$@\n";
	}

	return $obj->new($dbh);
}

1;

################################################################################
# Copyright (c) 2005-2010 Steven Edwards ([e-mail]).
# All rights reserved.
#
# You may use and distribute Apache::Voodoo under the terms described in the
# LICENSE file include in this package. The summary is it's a legalese version
# of the Artistic License :)
#
################################################################################