ext/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