Newer Older
19 lines | 0.274kb
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',
add experimental DBIx::Custo...
Yuki Kimoto authored on 2011-02-24
14
            {class => 'Company', name => 'company'}
removed experimental base_ta...
Yuki Kimoto authored on 2011-02-15
15
        ]
16
    );
17
}
18

            
19
1;