-package CGI::Session::BluePrint;\r
-\r
-# $Id: BluePrint.pm,v 1.1.1.1 2003/08/02 23:39:33 takezoe Exp $\r
-\r
-use strict;\r
-use base qw(\r
- CGI::Session\r
- CGI::Session::ID::MD5\r
- CGI::Session::Serialize::Default\r
-);\r
-\r
-\r
-# Load neccessary libraries below\r
-\r
-use vars qw($VERSION);\r
-\r
-$VERSION = '0.1';\r
-\r
-sub store {\r
- my ($self, $sid, $options, $data) = @_;\r
-\r
- my $storable_data = $self->freeze($data);\r
-\r
- #now you need to store the $storable_data into the disk\r
-\r
-}\r
-\r
-\r
-sub retrieve {\r
- my ($self, $sid, $options) = @_;\r
-\r
- # you will need to retrieve the stored data, and \r
- # deserialize it using $self->thaw() method\r
-}\r
-\r
-\r
-\r
-sub remove {\r
- my ($self, $sid, $options) = @_;\r
-\r
- # you simply need to remove the data associated \r
- # with the id\r
- \r
- \r
-}\r
-\r
-\r
-\r
-sub teardown {\r
- my ($self, $sid, $options) = @_;\r
-\r
- # this is called just before session object is destroyed\r
-}\r
-\r
-\r
-\r
-\r
-# $Id: BluePrint.pm,v 1.1.1.1 2003/08/02 23:39:33 takezoe Exp $\r
-\r
-1; \r
-\r
-=pod\r
-\r
-=head1 NAME\r
-\r
-CGI::Session::BluePrint - Default CGI::Session driver BluePrint\r
-\r
-=head1 SYNOPSIS\r
- \r
- use CGI::Session::BluePrint\r
- $session = new CGI::Session("driver:BluePrint", undef, {...});\r
-\r
-For more examples, consult L<CGI::Session> manual\r
-\r
-=head1 DESCRIPTION\r
-\r
-CGI::Session::BluePrint is a CGI::Session driver.\r
-To write your own drivers for B<CGI::Session> refere L<CGI::Session> manual.\r
-\r
-=head1 COPYRIGHT\r
-\r
-Copyright (C) 2002 Your Name. All rights reserved.\r
-\r
-This library is free software and can be modified and distributed under the same\r
-terms as Perl itself. \r
-\r
-=head1 AUTHOR\r
-\r
-Your name\r
-\r
-=head1 SEE ALSO\r
-\r
-=over 4\r
-\r
-=item *\r
-\r
-L<CGI::Session|CGI::Session> - CGI::Session manual\r
-\r
-=item *\r
-\r
-L<CGI::Session::Tutorial|CGI::Session::Tutorial> - extended CGI::Session manual\r
-\r
-=item *\r
-\r
-L<CGI::Session::CookBook|CGI::Session::CookBook> - practical solutions for real life problems\r
-\r
-=item *\r
-\r
-B<RFC 2965> - "HTTP State Management Mechanism" found at ftp://ftp.isi.edu/in-notes/rfc2965.txt\r
-\r
-=item *\r
-\r
-L<CGI|CGI> - standard CGI library\r
-\r
-=item *\r
-\r
-L<Apache::Session|Apache::Session> - another fine alternative to CGI::Session\r
-\r
-=back\r
-\r
-=cut\r
-\r
-\r
-# $Id: BluePrint.pm,v 1.1.1.1 2003/08/02 23:39:33 takezoe Exp $\r
+package CGI::Session::BluePrint;
+
+# $Id: BluePrint.pm,v 1.1.1.1 2003/08/02 23:39:33 takezoe Exp $
+
+use strict;
+use base qw(
+ CGI::Session
+ CGI::Session::ID::MD5
+ CGI::Session::Serialize::Default
+);
+
+
+# Load neccessary libraries below
+
+use vars qw($VERSION);
+
+$VERSION = '0.1';
+
+sub store {
+ my ($self, $sid, $options, $data) = @_;
+
+ my $storable_data = $self->freeze($data);
+
+ #now you need to store the $storable_data into the disk
+
+}
+
+
+sub retrieve {
+ my ($self, $sid, $options) = @_;
+
+ # you will need to retrieve the stored data, and
+ # deserialize it using $self->thaw() method
+}
+
+
+
+sub remove {
+ my ($self, $sid, $options) = @_;
+
+ # you simply need to remove the data associated
+ # with the id
+
+
+}
+
+
+
+sub teardown {
+ my ($self, $sid, $options) = @_;
+
+ # this is called just before session object is destroyed
+}
+
+
+
+
+# $Id: BluePrint.pm,v 1.1.1.1 2003/08/02 23:39:33 takezoe Exp $
+
+1;
+
+=pod
+
+=head1 NAME
+
+CGI::Session::BluePrint - Default CGI::Session driver BluePrint
+
+=head1 SYNOPSIS
+
+ use CGI::Session::BluePrint
+ $session = new CGI::Session("driver:BluePrint", undef, {...});
+
+For more examples, consult L<CGI::Session> manual
+
+=head1 DESCRIPTION
+
+CGI::Session::BluePrint is a CGI::Session driver.
+To write your own drivers for B<CGI::Session> refere L<CGI::Session> manual.
+
+=head1 COPYRIGHT
+
+Copyright (C) 2002 Your Name. All rights reserved.
+
+This library is free software and can be modified and distributed under the same
+terms as Perl itself.
+
+=head1 AUTHOR
+
+Your name
+
+=head1 SEE ALSO
+
+=over 4
+
+=item *
+
+L<CGI::Session|CGI::Session> - CGI::Session manual
+
+=item *
+
+L<CGI::Session::Tutorial|CGI::Session::Tutorial> - extended CGI::Session manual
+
+=item *
+
+L<CGI::Session::CookBook|CGI::Session::CookBook> - practical solutions for real life problems
+
+=item *
+
+B<RFC 2965> - "HTTP State Management Mechanism" found at ftp://ftp.isi.edu/in-notes/rfc2965.txt
+
+=item *
+
+L<CGI|CGI> - standard CGI library
+
+=item *
+
+L<Apache::Session|Apache::Session> - another fine alternative to CGI::Session
+
+=back
+
+=cut
+
+
+# $Id: BluePrint.pm,v 1.1.1.1 2003/08/02 23:39:33 takezoe Exp $
OSDN Git Service
