gistfile1.diff

Index: lib/HTTP/Session/Store/Test.pm
===================================================================
--- lib/HTTP/Session/Store/Test.pm	(revision 30519)
+++ lib/HTTP/Session/Store/Test.pm	(working copy)
@@ -3,6 +3,15 @@
 use warnings;
 use base qw/HTTP::Session::Store::OnMemory/;
 
+my $DATA = {};
+sub new {
+    my $class = shift;
+    my %args = ref($_[0]) ? %{$_[0]} : @_;
+    # set default values
+    $args{data} ||= $DATA;
+    bless {%args}, $class;
+}
+
 1;
 __END__