File Coverage

blib/lib/DBIx/Romani/Driver.pm

Criterion	Covered	Total	%
statement	12	33	36.3
branch	0	2	0.0
condition			n/a
subroutine	4	12	33.3
pod	0	8	0.0
total	16	55	29.0

package DBIx::Romani::Driver;

use DBIx::Romani::PreparedStatement;
use DBIx::Romani::ResultSet;
use DBIx::Romani::Query::SQL::Generate;
use strict;

sub new
{
	return bless {}, shift;
}

sub connect_dbi
{
	die "Abstract.";
}

sub apply_limit
{
	die "Abstract.";
}

sub create_id_generator
{
	die "Abstract.";
}

sub create_prepared_statement
{
	my ($self, $conn, $sql) = @_;
	return DBIx::Romani::PreparedStatement->new( $conn, $sql );
}

sub create_result_set
{
	my ($self, $conn, $sth, $fetchmode) = @_;
	return DBIx::Romani::ResultSet->new( $conn, $sth, $fetchmode );
}

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

	$s =~ s/'/''/g;

	return $s;
}

sub generate_sql
{
	my $self = shift;
	my $args = shift;

	my $query;
	my $values;

	if ( ref($self) eq 'HASH' )
	{
		$query  = $args->{query};
		$values = $args->{values};
	}
	else
	{
		$query  = $args;
		$values = shift;
	}

	my $generator = DBIx::Romani::Query::SQL::Generate->new({ driver => $self, values => $values });

	return $query->visit( $generator );
}

1;