fix some typos and spelling mistakes

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

diff --git a/lib/Plack/Session/Store/File.pm b/lib/Plack/Session/Store/File.pm
index cd33e4a..4f1e453 100644 (file)
--- a/lib/Plack/Session/Store/File.pm
+++ b/lib/Plack/Session/Store/File.pm
@@ -2,7 +2,7 @@ package Plack::Session::Store::File;
 use strict;
 use warnings;
 
-our $VERSION   = '0.03';
+our $VERSION   = '0.11';
 our $AUTHORITY = 'cpan:STEVAN';
 
 use Storable ();
@@ -31,15 +31,20 @@ sub new {
 
 sub fetch {
     my ($self, $session_id) = @_;
-    return $self->_deserialize( $session_id );
+
+    my $file_path = $self->_get_session_file_path( $session_id );
+    return unless -f $file_path;
+
+    $self->deserializer->( $file_path );
 }
 
 sub store {
     my ($self, $session_id, $session) = @_;
-    $self->_serialize( $session_id, $session->dump );
+    my $file_path = $self->_get_session_file_path( $session_id );
+    $self->serializer->( $session, $file_path );
 }
 
-sub cleanup {
+sub remove {
     my ($self, $session_id) = @_;
     unlink $self->_get_session_file_path( $session_id );
 }
@@ -49,19 +54,6 @@ sub _get_session_file_path {
     $self->dir . '/' . $session_id;
 }
 
-sub _serialize {
-    my ($self, $session_id, $value) = @_;
-    my $file_path = $self->_get_session_file_path( $session_id );
-    $self->serializer->( $value, $file_path );
-}
-
-sub _deserialize {
-    my ($self, $session_id) = @_;
-    my $file_path = $self->_get_session_file_path( $session_id );
-    $self->_serialize( $session_id, {} ) unless -f $file_path;
-    $self->deserializer->( $file_path );
-}
-
 1;
 
 __END__
@@ -110,7 +102,7 @@ default it will use L<Storable> to serialize and deserialize the
 data, but this can be configured easily. 
 
 This is a subclass of L<Plack::Session::Store> and implements
-it's full interface.
+its full interface.
 
 =head1 METHODS
 
@@ -129,14 +121,14 @@ is provided then "/tmp" is used.
 
 =item B<serializer>
 
-This is a CORE reference that implements the serialization logic.
+This is a CODE reference that implements the serialization logic.
 The CODE ref gets two arguments, the C<$value>, which is a HASH
 reference to be serialized, and the C<$file_path> to save it to.
 It is not expected to return anything.
 
 =item B<deserializer>
 
-This is a CORE reference that implements the deserialization logic.
+This is a CODE reference that implements the deserialization logic.
 The CODE ref gets one argument, the C<$file_path> to load the data
 from. It is expected to return a HASH reference.