package Extended::Web::C::Root;
use strict;
use warnings;
sub index {
my ($class, $c) = @_;
$c->render("index", $c);
}
sub die {
die "OKAY";
}
sub session {
my ($class, $c) = @_;
my $test = $c->session->get('test');
if ($test) {
my $res = $c->create_response(200, [], ["hello, $test"]);
$c->session->set(test => $test + 1);
return $res;
} else {
$c->session->set(test => 1);
return $c->create_response(200, [], ["first time"]);
}
}
1;