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;