/usr/share/perl5/MLDBM/Serializer/Storable.pm is in libmldbm-perl 2.05-2.
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 | ####################################################################
package MLDBM::Serializer::Storable;
BEGIN { @MLDBM::Serializer::Storable::ISA = qw(MLDBM::Serializer) }
use Storable;
sub new {
my $self = shift->SUPER::new();
$self->DumpMeth(shift);
# Storable doesn't honor other attributes
$self;
}
#
# Serialize a reference to supplied value
#
sub serialize {
my $self = shift;
my $dumpmeth = $self->{'_dumpsub_'};
&$dumpmeth(\$_[0]);
}
#
# Deserialize and de-reference
#
sub deserialize {
my $obj = Storable::thaw($_[1]); # Does not care whether portable
defined($obj) ? $$obj : undef;
}
#
# Change dump method when portability is requested
#
sub DumpMeth {
my $self = shift;
$self->{'_dumpsub_'} =
($_[0] && $_[0] eq 'portable' ? \&Storable::nfreeze : \&Storable::freeze);
$self->_attrib('dumpmeth', @_);
}
1;
|