t/lib/DBIC/Test/Schema.pm

   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;