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