Rewrote all the tests and now all tests pass!

[catagits/Web-Session.git] / lib / Plack / Session.pm

diff --git a/lib/Plack/Session.pm b/lib/Plack/Session.pm
index b437e29..b8a4336 100644 (file)
--- a/lib/Plack/Session.pm
+++ b/lib/Plack/Session.pm
@@ -12,6 +12,11 @@ sub new {
     bless { %params } => $class;
 }
 
+sub id {
+    my $self = shift;
+    $self->options->{id};
+}
+
 ## Data Managment
 
 sub dump {
@@ -45,6 +50,9 @@ sub keys {
 
 sub expire {
     my $self = shift;
+    for my $key ($self->keys) {
+        delete $self->_data->{$key};
+    }
     $self->options->{expire} = 1;
 }