The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use Test::More tests => 1;
use Set::Object qw(weak_set);

my $n = 1;
my $a = \$n;
my $set1 = weak_set();
$set1->insert($a);

pass;