gistfile1.pl �� A�U � A�U use Kossy; use Plack::Session; sub Plack::Session::new { my ($class, $env) = @_; my $self = bless { session => $env->{'psgix.session'}, options => $env->{'psgix.session.options'}, }, $class; for my $flash_key ( grep { m/^__flash__/ } keys %{$self->session} ) { delete $self->options->{no_store}; delete $self->session->{$flash_key}; my $key = substr($flash_key,9); $self->{