The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

CLACO / Mango-0.01000_05 / t / lib / Mango / Test / Schema.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14

              
# $Id: /local/Mango/trunk/t/lib/Mango/Test/Schema.pm 125 2007-04-14T02:52:20.839536Z claco  $
package Mango::Test::Schema;
use strict;
use warnings;
BEGIN {
    use base qw/Mango::Schema/;
};
sub dsn {
    return shift->storage->connect_info->[0];
};
1;