4 package Catalyst::TraitFor::Model::DBIC::Schema::SharedDatabaseConnection;
18 around ACCEPT_CONTEXT => sub {
19 my ( $orig, $self, $app, @rest ) = ( shift, shift, @_ );
20 unless ( $self->cloned ) {
21 $self->schema->storage(
22 $app->model( $self->parent_model )->schema->storage );
25 $self->$orig( $app, @rest );