This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Move Storable from ext/ to dist/
[perl5.git] / dist / Storable / t / make_overload.pl
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