package MyApp {
   ...;   # all that stuff above
   
   has article_class => (is => 'ro', default => 'MyApp::Article');
   
   sub create_article_object {
      my $self = shift;
      return $self->article_class->new(
         cgi       => $self->cgi,
         database  => $self->database,
         session   => $self->session,
         @_
      );
   }
   
   sub get_home_page {
      my $self = shift;
      return $self->create_article_object(identifier => 1);
   }
   
   sub get_contact_page {
      my $self = shift;
      return $self->create_article_object(identifier => 2);
   }
}

package MyApp::Article {
   use Moo;
   has identifier => (is => 'ro');
   has cgi        => (is => 'ro');
   has database   => (is => 'ro');
   has session    => (is => 'ro');
   
   ...;
}