package MyDBI1; use strict; use warnings; use base 'DBIx::Custom'; sub connect { my $self = shift->SUPER::connect(@_); $self->include_model( MyModel1 => [ 'book', {class => 'Company', name => 'company'} ] ); } 1;