1 package CattySession::Controller::Root;
6 use base qw/ Catalyst::Controller /;
8 __PACKAGE__->config( namespace => '' );
11 my ( $self, $context ) = @_;
12 if ( $context->session ) {
18 sub default : Private {
19 my ( $self, $context ) = @_;
20 my $html = html( "Root", "This is the root page" );
21 $context->response->content_type("text/html");
22 $context->response->output($html);
28 my $html = html( $c->config->{name}, "This is the die page" );
29 $c->response->content_type("text/html");
30 $c->response->output($html);
35 my ( $title, $body ) = @_;
38 <head><title>$title</title></head>
41 <a href="/hello/">Hello</a>.