File Coverage

blib/lib/Terse/Plugin/DBI.pm

Criterion	Covered	Total	%
statement	14	24	58.3
branch	0	2	0.0
condition			n/a
subroutine	5	7	71.4
pod	0	2	0.0
total	19	35	54.2

package Terse::Plugin::DBI;
use 5.006; use strict; use warnings;
our $VERSION = '0.03';
use base 'Terse::Plugin';

use DBI;

sub connect {
	my ($self, $t) = @_;
	my ($dsn, $user, $password) = $self->connect_info($t);
	if (!$dsn) {
		$t->logError('No dsn found for DBI conntection', 400);
		return;
	}
	my $dbi = DBI->connect($dsn, $user, $password);
	return $dbi;
}

sub connect_info {
	my ($self, $t) = @_;
	my $conf = $t->plugin('config')->find('coredb');
	return ($conf->{dsn}, $conf->{user}, $conf->{password});
}

1;

__END__