File Coverage

blib/lib/Test/Database/Driver/SQLite.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	3	3	100.0
total	34	34	100.0

package Test::Database::Driver::SQLite;
$Test::Database::Driver::SQLite::VERSION = '1.113';
use strict;
use warnings;

use Test::Database::Driver;
our @ISA = qw( Test::Database::Driver );

use DBI;
use File::Spec;

sub is_filebased {1}

sub _version { return DBI->connect( $_[0]->driver_dsn() )->{sqlite_version}; }

sub dsn {
    my ( $self, $dbname ) = @_;
    return $self->make_dsn(
        dbname => File::Spec->catdir( $self->base_dir(), $dbname ) );
}

sub drop_database {
    my ( $self, $dbname ) = @_;
    my $dbfile = File::Spec->catfile( $self->base_dir(), $dbname );
    unlink $dbfile;
}

'SQLite';

__END__