gistfile1.txt

package Plack::Session::State::Cookie::Session;
use strict;
use warnings;

our $VERSION   = '0.01';

use parent 'Plack::Session::State::Cookie';

use Plack::Util::Accessor qw[
    is_generate
];


sub generate {
    my $self = shift;

    $self->is_generate(1);

    $self->SUPER::generate(@_);
}


sub finalize {
    my $self = shift;

    return unless $self->is_generate;

    $self->SUPER::finalize(@_);
}

1;