[p5sagit/p5-mst-13.2.git] / dist / Storable / t / HAS_OVERLOAD.pm

package HAS_OVERLOAD;

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

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

++$loaded_count;

1;
Commit	Line	Data
165cc789	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;