[p5sagit/p5-mst-13.2.git] / ext / Storable / t / make_overload.pl

#!/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;
Commit	Line	Data
2b2a4664	1	#!/usr/local/bin/perl -w
	2	use strict;
	3
	4	use Storable qw(nfreeze);
	5	use HAS_OVERLOAD;
	6
	7	my $o = HAS_OVERLOAD->make("snow");
	8	my $f = nfreeze \$o;
	9
	10	my $uu = pack 'u', $f;
	11
	12	print $uu;
	13