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

# $Id$
package DBIC::Test::Schema;
use strict;
use warnings;

BEGIN {
    use base qw/DBIx::Class::Schema/;
};
__PACKAGE__->load_classes;

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

1;
Commit	Line	Data
a19bdae0	1	# $Id$
	2	package DBIC::Test::Schema;
	3	use strict;
	4	use warnings;
	5
	6	BEGIN {
	7	use base qw/DBIx::Class::Schema/;
	8	};
	9	__PACKAGE__->load_classes;
	10
	11	sub dsn {
	12	return shift->storage->connect_info->[0];
	13	};
	14
	15	1;