fe00537 13 years ago
1 contributor
19 lines | 0.255kb
  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. $self->include_model(
  11. MyModel1 => [
  12. $self->table1,
  13. $self->table2
  14. ]
  15. );
  16. }
  17.  
  18. 1;