package Friender::EasyDB;

use strict;
use DBI;
use Friender::Search::Search;

sub new {
	my $class = shift;
	my $self = {};
	bless($self, $class);
	$self->init(@_);
	return $self;
}

sub init {
	my $self = shift;
	my $dbh = DBI->connect_cached(@_,
		{
			AutoCommit => 0,
			RaiseError => 1
		}
	)
		or die $DBI::errstr;
	$self->{_DATA_}->{DBH} = $dbh;
}

sub search {
	my $self = shift;
	my $dbh = $self->{_DATA_}->{DBH};
	my ($st, @bind) = @_;
	return Friender::Search::Search->new($dbh, $st, @bind);
}

sub quick {
	my $self = shift;
	my $dbh = $self->{_DATA_}->{DBH};
	my ($st, @bind) = @_;
	return $dbh->selectrow_array($st, undef, @bind);
}

sub do {
	my $self = shift;
	my $dbh = $self->{_DATA_}->{DBH};
	my ($st, @bind) = @_;
	$dbh->do($st, undef, @bind);
}

sub disconnect {
	my $self = shift;
	my $dbh = $self->{_DATA_}->{DBH};
	$dbh->disconnect;
}

1;