DBIx-Custom / t / common / MyDBI1.pm /
Yuki Kimoto test cleanup
ae4189a 13 years ago
1 contributor
21 lines | 0.289kb
package MyDBI1;

use strict;
use warnings;

use base 'DBIx::Custom';

sub connect {
    my $self = shift->SUPER::connect(@_);
    
    $self->include_model(
        MyModel1 => [
            'table1',
            'table2',
            'TABLE1',
            'TABLE2'
        ]
    );
}

1;