|
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" );
$r ->add( "/blessed" , "blessed" );
}
sub blessed
{
my ( $self ) = @_ ;
$self ->template( 'home' );
}
sub check_util_fun { path; }
1;
|