Newer Older
19 lines | 0.227kb
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 {
cleanup
Yuki Kimoto authored on 2012-01-20
9
  my $self = shift->SUPER::connect(@_);
10
  
11
  $self->include_model(
12
    MyModel1 => [
13
      $self->table1,
14
      $self->table2
15
    ]
16
  );
test cleanup
Yuki Kimoto authored on 2011-08-15
17
}
18

            
19
1;