gistfile1.pl

package Plack::Middleware::Session::Fast;

use strict;
use warnings;
use parent qw/Plack::Middleware::Session/;
use Storable qw//;
use Data::MessagePack q//;
use Plack::Util::Accessor qw/serialize_method/;

sub prepare_app {
    my $self = shift;

    $self->serialize_method(\&Storable::freeze) unless $self->serialize_method;
    $self->serialize_method(\&Storable::freeze) if $self->serialize_method eq 'storable';
    $self->serialize_method(
        sub { Data::MessagePack->pack(+shift) }
    ) if $self->serialize_method eq 'messagepack';
    $self->SUPER::prepare_app();
}

sub call {
    my $self = shift;
    my $env  = shift;

    my($id, $session) = $self->get_session($env);

    if ($id && $session) {
        $env->{'psgix.session'} = $session;
    } else {
        $id = $self->generate_id($env);
        $env->{'psgix.session'} = {};
    }
    $env->{'psgix.session.options'} = {
        id => $id,
    };
    #before app
    my $freeze_req = $self->serialize_method->([$env->{'psgix.session'},$env->{'psgix.session.options'}]);

    my $res = $self->app->($env);

    #after app
    my $freeze_res = $self->serialize_method->([$env->{'psgix.session'},$env->{'psgix.session.options'}]);

    return $res if $freeze_req eq $freeze_res;
    $self->response_cb(
        $res, sub {
            $self->finalize($env, $_[0])
        }
    );
}

1;