#!/usr/bin/perl
package CacheTestApp::Controller::Root;
use base qw/Catalyst::Controller/;
use strict;
use warnings;
__PACKAGE__->config( namespace => "" );
sub foo : Local {
my ( $self, $c ) = @_;
$c->cache->set( foo => "Foo" );
}
sub bar : Local {
my ( $self, $c ) = @_;
$c->res->body( $c->cache->get( "foo" ) || "not found" );
}
__PACKAGE__;
__END__