xref: /openbsd-src/gnu/usr.bin/perl/dist/Storable/t/HAS_OVERLOAD.pm (revision b39c515898423c8d899e35282f4b395f7cad3298)

package HAS_OVERLOAD;

use overload
	'""'	=> sub { ${$_[0]} }, fallback => 1;

sub make {
  my $package = shift;
  my $value = shift;
  bless \$value, $package;
}

++$loaded_count;

1;