Viewing: leaks.t

#!./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); } } { # [cpan #97316] package TestClass; sub new { my $class = shift; return bless({}, $class); } sub STORABLE_freeze { die; } package main; my $obj = TestClass->new; eval { freeze($obj); }; } Return