package MyApp::B; with 'MyApp::Role::DB'; use MyApp::A; sub do_something_else { my $self = shift; my $a = MyApp::A->new( dbh => $self->dbh ); $a->do_something; $self->dbh->... }