#!/usr/bin/perl
# Simple counter web application
# NOTE: This example uses Plack::Request to illustrate how
# Plack::Middleware::Session interface ($env->{'psgix.session'}) could
# be wrapped and integrated as part of the request API. See Tatsumaki
# (integrated via subclassing Plack::Request) and Dancer::Session::PSGI
# how to adapt Plack::Middleware::Session to web frameworks' APIs.
# You're not recommended to write a new web application using this style.
use strict;
use Plack::Session;
use Plack::Session::State;
use Plack::Session::State::Cookie;
use Plack::Session::Store;
use Plack::Middleware::Session;
my $app = Plack::Middleware::Session->wrap(
sub {
my $env = shift;
my $r = Plack::Request->new( $env );
return [ 404, [], [] ] if $r->path_info =~ /favicon.ico/;
my $session = $r->session;
my $id = $session->id;
my $counter = $session->get('counter') || 0;
$session->set( 'counter' => $counter + 1 );
my $resp;
if ( $r->param( 'logout' ) ) {
$session->expire;
$resp = $r->new_response;
$resp->redirect( $r->path_info );
}
else {
$resp = $r->new_response(
200,
[ 'Content-Type' => 'text/html' ],
[
qq{
Plack::Middleware::Session Example
Session Id: ${id}
Counter: ${counter}
Logout
}
]
);
}
$resp->finalize;
},
state => Plack::Session::State::Cookie->new,
store => Plack::Session::Store->new,
);