Yuki Kimoto cleanup
5e8d869 12 years ago
1 contributor
19 lines | 0.227kb
package MyDBI1;

use strict;
use warnings;

use base 'DBIx::Custom';

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

1;