Newer Older
19 lines | 0.255kb
test cleanup
Yuki Kimoto authored on 2011-08-15
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 => [
finished oracle test
Yuki Kimoto authored on 2011-08-15
13
            $self->table1,
14
            $self->table2
test cleanup
Yuki Kimoto authored on 2011-08-15
15
        ]
16
    );
17
}
18

            
19
1;