Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more
|
attr context_obj => 'CustomContext::Context' ;
sub build
{
my $self = shift ;
$self ->routes->base( 'CustomContext::Controller' );
$self ->routes->rebless(1);
$self ->add_route(
'/a/b' => {
to => sub {
return ref shift () eq __PACKAGE__;
},
bridge => 1,
}
);
$self ->add_route(
'/a/b/d' => {
to => sub {
$self ->res->text;
return ref $self ;
},
}
);
$self ->context->controller()->build;
}
sub before_finalize
{
my $self = shift ;
$self ->res->header( 'X-Final' => __PACKAGE__);
}
1;
|