sample.psgi

use strict;
use warnings;
use utf8;

use 5.014;

{
    package MyApp::Dispatcher;
    sub name { return 'Hogehoge' }
}

package MyApp;
use Plack::Util;

my $dispatcher_name = __PACKAGE__.'::Dispatcher';
Plack::Util::load_class($dispatcher_name);

my $app = sub {
    my $body = "Hello ".$dispatcher_name->name;
    return [
        200,
        ["Content-Type" => "text/plain", "Content-Length" => length($body)],
        [$body]
    ];
};