[dbsrgits/DBIx-Class-UserStamp.git] / t / lib / DBIC / Test / Schema.pm

package # hide from PAUSE
    DBIC::Test::Schema;

use base qw/DBIx::Class::Schema/;

no warnings qw/qw/;

__PACKAGE__->load_classes;

__PACKAGE__->mk_group_accessors('simple' => qw/current_user_id/);

sub dsn {
    return shift->storage->connect_info->[0];
}

1;
Commit	Line	Data
7bde9079	1	package # hide from PAUSE
	2	DBIC::Test::Schema;
	3
	4	use base qw/DBIx::Class::Schema/;
	5
	6	no warnings qw/qw/;
	7
	8	__PACKAGE__->load_classes;
	9
	10	__PACKAGE__->mk_group_accessors('simple' => qw/current_user_id/);
	11
	12	sub dsn {
	13	return shift->storage->connect_info->[0];
	14	}
	15
	16	1;