#!/usr/bin/perl
package DynamicExpiryApp::Controller::Foo;
use strict;
use warnings;
use base qw/Catalyst::Controller/;
sub counter : Local {
my ( $self, $c ) = @_;
$c->res->body( ++$c->session->{counter} );
}
sub remember_me : Local {
my ( $self, $c ) = @_;
$c->session_time_to_live( 60 * 60 * 24 * 365 ); # a year
$c->forward("counter");
}
__PACKAGE__;