xref: /openbsd-src/gnu/usr.bin/perl/dist/Storable/t/make_overload.pl (revision b39c515898423c8d899e35282f4b395f7cad3298)

#!/usr/local/bin/perl -w
use strict;

use Storable qw(nfreeze);
use HAS_OVERLOAD;

my $o = HAS_OVERLOAD->make("snow");
my $f = nfreeze \$o;

my $uu = pack 'u', $f;

print $uu;