One Hat Cyber Team

Your IP: 216.73.216.67
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

Dir : ~/home/.cpan/build/Storable-3.25-0/t/

View File Name : 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); };
}