File Coverage

blib/lib/Tao/DBI/db.pm

Criterion	Covered	Total	%
statement	20	51	39.2
branch	0	16	0.0
condition	0	10	0.0
subroutine	7	12	58.3
pod	1	3	33.3
total	28	92	30.4

package Tao::DBI::db;

use 5.006;
use strict;
use warnings;

require Exporter;

our @ISA    = qw(Exporter);
our @EXPORT = qw();

our $VERSION = '0.011';

use DBI;
use Tao::DBI::st;
use Tao::DBI::st_deep;

# the instance variables:
# DBH
# NAME

# usage:
# $dbh = new Tao::DBI::db($args);
sub new {
    my ( $proto, $args ) = @_;
    my $class = ref($proto) || $proto;
    my $obj = bless {}, $class;
    $obj->initialize($args);
    return $obj;
}

# usage:
#   $dbh->initialize($args);
# where $args is
# { name => , dsn|url => , user => , password =>, options passed to DBI->connect }
#
#
# protected
sub initialize {
    my ( $self, $args ) = @_;

    $self->{NAME} = $args->{name};
    $self->{URL}  = $args->{dsn} || $args->{url};
    $self->{USER} = $args->{user};
    $self->{PASS} = $args->{password};
    unless ( exists $args->{FetchHashKeyName} ) {
        $args->{FetchHashKeyName} = 'NAME_lc';
    }
    unless ( exists $args->{AutoCommit} ) {
        $args->{AutoCommit} = 0;
    }

    my $dbh = DBI->connect( $self->{URL}, $self->{USER}, $self->{PASS}, $args )
      ;   # remaining arguments can be passed to DBI->connect (needs improving!)
    if ($dbh) {
        $self->{DBH} = $dbh;
    }
    else {
        die "Can't establish connection '$self->{NAME}': $DBI::errstr\n";
    }
}

# $stmt = $dbh->prepare($sql, $args);
# $stmt = $dbh->prepare($args); # $args is hashref
sub prepare {
    my $self = shift;
    my $sql;
    $sql = shift unless ref $_[0];    # first non-ref arg
    my $args    = shift         || {};
    my $st_type = $args->{type} || 'plain';
    if ( $st_type eq 'plain' ) {
        return new Tao::DBI::st(
            {
                ( $sql ? ( sql => $sql ) : () ),
                dbh => $self->{DBH},
                %$args
            }
        );
    }
    elsif ( $st_type eq 'deep' ) {
        return new Tao::DBI::st_deep(
            {
                ( $sql ? ( sql => $sql ) : () ),
                dbh => $self->{DBH},
                %$args
            }
        );
    }
    else {
        die "unknown statement type: $st_type\n";
    }
}

use vars qw ($AUTOLOAD);

# If method wasn't found, delegates to DBH instance variable.
# This way, instances of this class behaves like DBI connections.
#
# this needs improvement: non existent methods will provoke weird
# messages from DBI objects, instead of Tao::DBI::db
sub AUTOLOAD {
    my $self = shift;
    my $meth = $AUTOLOAD;
    $meth =~ s/.*:://;
    return $self->{DBH}->$meth(@_);
}

sub DESTROY { }

1;

# May 29, 2003

__END__