File Coverage

blib/lib/DBIx/Foo.pm

Criterion	Covered	Total	%
statement	42	47	89.3
branch	4	10	40.0
condition	3	9	33.3
subroutine	14	15	93.3
pod	0	8	0.0
total	63	89	70.7

package DBIx::Foo;

use strict;

use DBI;
use DBIx::Foo::SearchQuery;
use DBIx::Foo::SimpleQuery;
use DBIx::Foo::UpdateQuery;

use Log::Any qw($log);

use Exporter;

our @ISA = qw(Exporter);
our @EXPORT_OK = qw(selectrow selectrow_array selectrow_hashref selectall selectall_arrayref selectall_hashref dbh_do do err last_insert_id);
our %EXPORT_TAGS = (all => [@EXPORT_OK]);

our $VERSION = '0.03';

sub new {
    my ($class) = shift;
    $class->connect(@_);
}

sub connect {
    my ($class, @arguments) = @_;

	my $self = {};

    if (defined $arguments[0] and UNIVERSAL::isa($arguments[0], 'DBI::db')) {
        $self->{dont_disconnect} = 1;
		$self->{dbh} = shift @arguments;
		Carp::carp("Additional arguments for $class->connect are ignored") if @arguments;
    } else {
		$arguments[3]->{PrintError} = 0
	    unless defined $arguments[3] and exists $arguments[3]{PrintError};
        $arguments[3]->{RaiseError} = 1
            unless defined $arguments[3] and exists $arguments[3]{RaiseError};
		$self->{dbh} = DBI->connect(@arguments);
    }

    return undef unless $self->{dbh};

    $self->{dbd} = $self->{dbh}->{Driver}->{Name};
    bless $self, $class;

    return $self;
}

sub disconnect {
	my $self = shift;
	$self->{dbh}->disconnect();
}

sub dbh {
	my $self = shift;
	return $self->{dbh};
}

sub do {
	return shift->dbh_do(@_); # just an alias
}

sub err {
	my $self = shift;
	return $self->{dbh}->err;
}

sub last_insert_id {
	my ($self, @args) = @_;
	return $self->{dbh}->last_insert_id(@args);
}

sub update_query {
	my ($self, $table) = @_;
	return DBIx::Foo::UpdateQuery->new($table, $self);
}

1;

__END__