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; |