/usr/share/perl5/CGI/Session/Serialize/storable.pm is in libcgi-session-perl 4.48-1+deb8u1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 | package CGI::Session::Serialize::storable;
# $Id$
use strict;
use Storable;
require CGI::Session::ErrorHandler;
$CGI::Session::Serialize::storable::VERSION = '4.43';
@CGI::Session::Serialize::storable::ISA = ( "CGI::Session::ErrorHandler" );
=pod
=head1 NAME
CGI::Session::Serialize::storable - Serializer for CGI::Session
=head1 DESCRIPTION
This library can be used by CGI::Session to serialize session data. Uses L<Storable|Storable>.
=head1 METHODS
=over 4
=item freeze($class, \%hash)
Receives two arguments. First is the class name, the second is the data to be serialized.
Should return serialized string on success, undef on failure. Error message should be set using
C<set_error()|CGI::Session::ErrorHandler/"set_error()">
=cut
sub freeze {
my ($self, $data) = @_;
return Storable::freeze($data);
}
=item thaw($class, $string)
Receives two arguments. First is the class name, second is the I<frozen> data string. Should return
thawed data structure on success, undef on failure. Error message should be set
using C<set_error()|CGI::Session::ErrorHandler/"set_error()">
=back
=cut
sub thaw {
my ($self, $string) = @_;
return Storable::thaw($string);
}
=head1 LICENSING
For support and licensing see L<CGI::Session|CGI::Session>
=cut
1;
|