File Coverage

blib/lib/ActiveRecord/Simple/Connect.pm

Criterion	Covered	Total	%
statement	32	46	69.5
branch	10	20	50.0
condition	1	3	33.3
subroutine	8	13	61.5
pod	0	7	0.0
total	51	89	57.3

package ActiveRecord::Simple::Connect;

use strict;
use warnings;
use 5.010;

use DBI;


my $self;

sub new {
	my ($class, $dsn, $username, $password, $params) = @_;

	if (!$self) {
		$self = { dbh => undef };
		if ($dsn) {
			$self->{dsn} = $dsn;
			$self->{username} = $username if $username;
			$self->{password} = $password if $password;
			$self->{connection_parameters} = $params if $params;
		}

		bless $self, $class;
	}
	#$self->db_connect;

	return $self;
}

sub db_connect {
	my ($self) = @_;

	use Data::Dumper;
	say '-------';

	$self->{dbh} = DBI->connect(
		$self->{dsn},
		$self->{username},
		$self->{password},
		#$self->{connection_parameters},
		{
			HandleError => sub {
				my ($a, $b, $c) = @_;

				say 'Simple.Connect.db_connect.HandleError.a = ' . Dumper $a;
			},
		}
	) or die DBI->errstr;

	return $self;
}

sub username {
	my ($self, $username) = @_;

	$self->{username} = $username if $username;

	return $self->{username};
}

sub password {
	my ($self, $password) = @_;

	$self->{password} = $password if $password;

	return $self->{password};
}

sub dsn {
	my ($self, $dsn) = @_;

	$self->{dsn} = $dsn;

	return $self->{dsn};
}

sub connection_parameters {
	my ($self, $connection_parameters) = @_;

	$self->{connection_parameters} = $connection_parameters;

	return $self->{connection_parameters};
}

sub dbh {
	my ($self, $dbh) = @_;

	$self->{dbh} = $dbh if $dbh;
	$self->db_connect unless $self->{dbh} && $self->{dbh}->ping;

	return $self->{dbh};
}

1;