/usr/share/perl5/TM/Serializable/Dumper.pm is in libtm-perl 1.56-7.
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 | package TM::Serializable::Dumper;
use Class::Trait 'base';
use Class::Trait 'TM::Serializable';
use Data::Dumper;
sub serialize {
my $self = shift;
use Data::Dumper;
my $s;
{
local $Data::Dumper::Purity = 1;
$s = Data::Dumper->Dump ([$self], ['tm']); # NB: we have recursive data structures
}
return $s;
}
sub deserialize {
my $self = shift;
my $s = shift;
my $tm;
eval $s;
$self->melt ($tm);
}
1;
|