dist/Storable/t/HAS_OVERLOAD.pm

   1 package HAS_OVERLOAD;
   2
   3 use overload
   4         '""'    => sub { ${$_[0]} }, fallback => 1;
   5
   6 sub make {
   7   my $package = shift;
   8   my $value = shift;
   9   bless \$value, $package;
  10 }
  11
  12 ++$loaded_count;
  13
  14 1;