File Coverage

blib/lib/ResourcePool/Resource/Alzabo.pm

Criterion	Covered	Total	%
statement	20	28	71.4
branch	1	2	50.0
condition	1	3	33.3
subroutine	6	7	85.7
pod	1	2	50.0
total	29	42	69.0

#*********************************************************************
#*** ResourcePool::Resource::Alzabo
#*** Copyright (c) 2004 Texas A&M University,
#*** Based on ResourcePool::Resource::DBI
#*** Copyright (c) 2002 by Markus Winand
#*** $Id: Alzabo.pm,v 1.2 2004/04/15 20:59:43 jgsmith Exp $
#*********************************************************************

package ResourcePool::Resource::Alzabo;

use vars qw($VERSION @ISA);
use strict;
use DBI;
use ResourcePool::Resource::DBI;
use Alzabo::Runtime::Schema;

$VERSION = "1.0100";
push @ISA, "ResourcePool::Resource::DBI";

sub new($$$$$$) {
	my $proto = shift;
	my $class = ref($proto) || $proto;
        my $name = shift;
	my $self = $class->SUPER::new(@_);

        return unless $self;

	bless($self, $class);

        my $schema = Alzabo::Runtime::Schema -> load_from_file( name => $name );

        $schema -> driver -> handle($self -> {dbh});
        $schema -> connect;

        $self -> {schema} = $schema;

	return $self;
}

sub get_plain_resource($) {
	my ($self) = @_;
	return $self->{schema};
}

1;