#!./perl
use Test::More;
use Storable ();
BEGIN {
eval "use Test::LeakTrace";
plan 'skip_all' => 'Test::LeakTrace required for this tests' if $@;
}
plan 'tests' => 1;
{
my $c = My::Simple->new;
my $d;
my $freezed = Storable::freeze($c);
no_leaks_ok
{
$d = Storable::thaw($freezed);
undef $d;
};
package My::Simple;
sub new {
my ($class, $arg) = @_;
bless {t=>$arg}, $class;
}
sub STORABLE_freeze {
return "abcderfgh";
}
sub STORABLE_attach {
my ($class, $c, $serialized) = @_;
return $class->new($serialized);
}
}