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

# $Id: Schema.pm 3236 2007-05-05 16:24:35Z claco $\r
package DBIC::Test::Schema;\r
use strict;\r
use warnings;\r
\r
BEGIN {\r
    use base qw/DBIx::Class::Schema/;\r
};\r
__PACKAGE__->load_classes;\r
\r
sub dsn {\r
    return shift->storage->connect_info->[0];\r
};\r
\r
1;\r
Commit	Line	Data
3469b243	1	# $Id: Schema.pm 3236 2007-05-05 16:24:35Z claco $\r
	2	package DBIC::Test::Schema;\r
	3	use strict;\r
	4	use warnings;\r
	5	\r
	6	BEGIN {\r
	7	use base qw/DBIx::Class::Schema/;\r
	8	};\r
	9	__PACKAGE__->load_classes;\r
	10	\r
	11	sub dsn {\r
	12	return shift->storage->connect_info->[0];\r
	13	};\r
	14	\r
	15	1;\r