gistfile1.txt

package TestApp;
use Mojo::Base 'Mojolicious';

sub startup {
  my $app = shift;
  $app->plugin('PODRenderer');
  my $r = $app->routes;
  $r->any('/svc')->to('Service#serv');
}


package TestApp::Controller::Service;
use Mojo::Base 'Mojolicious::Controller';

use Mod::Service;

sub serv {
  my ( $c ) = @_;
  my $svc = Mod::Service->new( app_name => $c->app->moniker );
  $svc->s_start;
}


package Mod::Service;

use v5.14;
use utf8;
use Mojo::Base;

has app_name => 'default app name';

sub s_start {
  my ( $self ) = @_;
  $self->testme();  
  # other stuff
}


sub testme {
  my ( $self ) = @_;
  # stuff
  say "Mod::Service->testme called";
  say "My app name is " . $self->app_name;
}