DBIx-Custom / t / common / MyDBI1.pm /
Newer Older
19 lines | 0.245kb
test cleranup
Yuki Kimoto authored on 2011-08-10
1
package MyDBI1;
2

            
3
use strict;
4
use warnings;
5

            
6
use base 'DBIx::Custom';
7

            
8
sub connect {
9
    my $self = shift->SUPER::connect(@_);
10
    
11
    $self->include_model(
12
        MyModel1 => [
cleanup test
Yuki Kimoto authored on 2011-08-10
13
            'table1',
14
            'table2'
test cleranup
Yuki Kimoto authored on 2011-08-10
15
        ]
16
    );
17
}
18

            
19
1;