#!/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;
#!/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;