The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

package MyApp;
use Kelp::Base 'Kelp';
sub before_dispatch
{
my $self = shift;
$self->res->header('X-Before-Dispatch', 'MyApp');
}
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");
}
sub blessed
{
my ($self) = @_;
$self->template('home');
}
sub check_util_fun { path; }
1;