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 ($st, @bind) = @_;
        return Friender::Search::Search->new($self, $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;
}

sub prepare {
       my $self = shift;
       my ($st, @bind) = @_;
       my $dbh = $self->{_DATA_}->{DBH};
       my $sth = $dbh->prepare($st);
       $sth->execute(@bind)
             or die $DBI::errstr;
       return $sth;
}

sub fetch
{
       my $self=shift;
       my $sth=shift;
       return $sth->fetchrow_hashref;
}

1;
#########################################################################
package Friender::Search::Search;

use strict;
use SQL::Abstract;

sub new {
        my $class = shift;
        my $db = shift;
        my $self = {};
        $self->{_DB_}=$db;
        $self->{_DATA_}->{RESULTS}=$db->fetch_prepare(@_);
        bless($self, $class);
        return $self;
}

sub get {
        my $self = shift;
        my $sth = $self->{_DATA_}->{RESULTS};
        return $self->{_DB_}->fetch($sth);
}

1;