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