4 use Catalyst qw/Session Session::Store::Dummy Session::State::Cookie/;
8 no warnings 'uninitialized';
10 sub default : Private {
17 my ( $self, $c ) = @_;
18 if ( ! $c->flash->{is_set}) {
19 $c->stash->{message} = "flash is not set";
20 $c->flash->{is_set} = 1;
25 my ( $self, $c ) = @_;
26 if ($c->flash->{is_set} == 1){
27 $c->stash->{message} = "flash set first time";
28 $c->flash->{is_set}++;
33 my ( $self, $c ) = @_;
34 if ($c->flash->{is_set} == 2) {
35 $c->stash->{message} = "flash set second time";
36 $c->keep_flash("is_set");
41 my ( $self, $c ) = @_;
42 if ($c->flash->{is_set} == 2) {
43 $c->stash->{message} = "flash set 3rd time, same val as prev."
48 my ( $self, $c ) = @_;
49 $c->forward('/first');
54 $c->res->output($c->stash->{message});