# cache session here instead of flushing/reading from cookie all the time
my $SESSION = undef;


##</code><code>##


sub init {
    my ($self) = @_;
    $SESSION = undef; # <- new bit.