File Coverage

blib/lib/DBICx/TestDatabase/Subclass.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	25	26	96.1

package DBICx::TestDatabase::Subclass;
use strict;
use warnings;

use File::Temp 'tempfile';

sub connect {
    my ($class) = @_;

    my (undef, $filename) = tempfile;
    my $schema = $class->next::method("DBI:SQLite:$filename")
      or die "failed to connect to DBI:SQLite:$filename";

    $schema->{_tmpfile} = $filename;

    $schema->deploy;
    return $schema;
}

sub DESTROY {
    my ($schema) = @_;
    my $tmpfile = $schema->{_tmpfile};
    unlink $tmpfile;
}

1;

__END__