File Coverage

blib/lib/DBIx/Romani/Driver/sqlite.pm

Criterion	Covered	Total	%
statement	9	19	47.3
branch	0	6	0.0
condition			n/a
subroutine	3	6	50.0
pod	0	3	0.0
total	12	34	35.2

package DBIx::Romani::Driver::sqlite;
use base qw(DBIx::Romani::Driver);

use DBIx::Romani::Driver::sqlite::IdGenerator;
use strict;

# TODO: this function will take a "Roma-style" DSN or hash, and make
# a DBI connection returning a dbh.
sub connect_dbi
{
	die "Unimplemented.";
}

sub apply_limit
{
	my ($self, $sql, $offset, $limit) = @_;

	if ( $limit > 0 )
	{
		$sql .= " LIMIT " . $limit;
		if ( $offset > 0 )
		{
			$sql .= " OFFSET " . $offset;
		}
	}
	elsif ( $offset > 0 )
	{
		$sql .= " LIMIT -1 OFFSET " . $offset;
	}

	return $sql;
}

sub create_id_generator
{
	my ($self, $conn) = @_;
	return DBIx::Romani::Driver::sqlite::IdGenerator->new( $conn );
}

1;