HAS_OVERLOAD.pm revision 7c478bd95313f5f23a4c958a745db2134aa03244
package HAS_OVERLOAD;
use overload
'""' => sub { ${$_[0]} }, fallback => 1;
sub make {
my $package = shift;
my $value = shift;
bless \$value, $package;
}
++$loaded_count;
1;