t/lib/DBIC/Test/Schema.pm

   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