Newer Older
19 lines | 0.257kb
removed experimental base_ta...
Yuki Kimoto authored on 2011-02-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
    
add feture. all model class ...
Yuki Kimoto authored on 2011-02-18
11
    $self->include_model(
12
        MyModel1 => [
removed experimental base_ta...
Yuki Kimoto authored on 2011-02-15
13
            'book',
14
            {company => 'Company'}
15
        ]
16
    );
17
}
18

            
19
1;