14 our $VERSION = '0.01';
17 name => 'CattySession',
18 root => cwd . '/t/root',
21 CattySession->setup();
24 my ( $self, $context ) = @_;
25 if ( $context->session ) {
31 sub default : Private {
32 my ( $self, $context ) = @_;
33 my $html = html( "Root", "This is the root page" );
34 $context->response->content_type("text/html");
35 $context->response->output($html);
39 my ( $title, $body ) = @_;
42 <head><title>$title</title></head>
45 <a href="/hello/">Hello</a>.