The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package MyApp;
use Kelp::Base 'Kelp';
use MyApp::Response;

sub before_finalize {
    my $self = shift;
    $self->res->header( 'X-Test', 'MyApp' );
}

sub build_response {
    my $self = shift;
    MyApp::Response->new( app => $self );
}

sub build {
    my $self = shift;
    my $r    = $self->routes;
    $r->add( "/test", sub { "OK" } );
    $r->add( "/greet/:name", "routes#greet");
    $r->add( "/bye/:name", "Routes2::goodbye");

    # Controller routes
    $r->add("/blessed", "blessed");
}

1;