[dbsrgits/DBIx-Class-Schema-RestrictWithObject.git] / t / lib / RestrictByUserTest.pm

package # hide from PAUSE 
    RestrictByUserTest;

use strict;
use warnings;
use RestrictByUserTest::Schema;

sub init_schema {
    my $self = shift;
    my $db_file = "t/var/RestrictByUserTest.db";

    unlink($db_file) if -e $db_file;
    unlink($db_file . "-journal") if -e $db_file . "-journal";
    mkdir("t/var") unless -d "t/var";

    my $schema = RestrictByUserTest::Schema->connect( "dbi:SQLite:${db_file}");
    $schema->deploy();
    return $schema;
}

1;
Commit	Line	Data
772c89c1	1	package # hide from PAUSE
	2	RestrictByUserTest;
	3
	4	use strict;
	5	use warnings;
	6	use RestrictByUserTest::Schema;
	7
	8	sub init_schema {
	9	my $self = shift;
	10	my $db_file = "t/var/RestrictByUserTest.db";
	11
	12	unlink($db_file) if -e $db_file;
	13	unlink($db_file . "-journal") if -e $db_file . "-journal";
	14	mkdir("t/var") unless -d "t/var";
	15
	16	my $schema = RestrictByUserTest::Schema->connect( "dbi:SQLite:${db_file}");
	17	$schema->deploy();
	18	return $schema;
	19	}
	20
	21	1;