12345678910111213141516 package Test::DBIC::Schema;use strict;use warnings;our $VERSION = '0.01001';BEGIN { use base qw/DBIx::Class::Schema/;};__PACKAGE__->load_classes;sub dsn { return shift->storage->connect_info->[0];};1;
package
Test::DBIC::Schema;
use
strict;
warnings;
our
$VERSION
=
'0.01001'
;
BEGIN {
base
qw/DBIx::Class::Schema/
};
__PACKAGE__->load_classes;
sub
dsn {
return
shift
->storage->connect_info->[0];
1;