package TestApp::Controller::Root; use strict; use warnings; use base 'Catalyst::Controller'; __PACKAGE__->config->{namespace} = ''; sub default : Private { my ( $self, $c ) = @_; $c->response->body( $c->model('Logic::Oppai')->porn ); } sub boin : Local { my ( $self, $c ) = @_; $c->response->body( $c->model('Logic::Boin')->boin ); } sub foo : Local { my ( $self, $c ) = @_; $c->response->body( $c->model('Logic::Foo')->foo('foo') ); } 1;