Newer Older
19 lines | 0.274kb
added common test executing ...
Yuki Kimoto authored on 2011-08-07
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 => [
13
            'book',
14
            {class => 'Company', name => 'company'}
15
        ]
16
    );
17
}
18

            
19
1;