From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

CLACO / Mango-0.01000_04 / 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 150 2007-04-14T02:57:04.324056Z claco  $
package Mango::Test::Schema;
use strict;
use warnings;
BEGIN {
    use base qw/Mango::Schema/;
};
sub dsn {
    return shift->storage->connect_info->[0];
};
1;