--- /usr/lib/perl5/site_perl/5.8.8/MojoX/Session.pm 
+++ /home/shmem/comp/perl/lib/MojoX/Session.pm
@@ -81,7 +81,7 @@
 
 sub flush {
     my $self = shift;
-
+warn "LAST ORDERS. FASTEN SEAT BELTS...\n";
     return unless $self->sid && !$self->_is_flushed;
 
     if ($self->is_expired && $self->_is_stored) {


##</code><code>##

use MojoX::Session;
my $session = MojoX::Session->new;
$session->create();
$session->data('foo' => 'bar'); 
warn $session->data('foo'),$/;
undef $session;
warn "did we land yet?\n";

my $session = MojoX::Session->new;
$session->create();
$session->data('bar' => 'baz'); 
print $session->data('bar'),$/;
$session->flush();
warn "end-of that.\n"

##</code><code>##

bar
did we land yet?
baz
LAST ORDERS. FASTEN SEAT BELTS...
end-of that.