File Coverage

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

Criterion	Covered	Total	%
statement	20	27	74.0
branch			n/a
condition			n/a
subroutine	8	10	80.0
pod	3	3	100.0
total	31	40	77.5

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

use File::Spec;
use File::Path;
use DBD::DBM;

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

sub is_filebased {1}

sub _version { return DBD::DBM->VERSION; }

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

sub drop_database {
    my ( $self, $dbname ) = @_;
    my $dbdir = File::Spec->catdir( $self->base_dir(), $dbname );
    rmtree( [$dbdir] );
}

'DBM';

__END__