1N/Apackage HAS_OVERLOAD;
1N/A
1N/Ause overload
1N/A '""' => sub { ${$_[0]} }, fallback => 1;
1N/A
1N/Asub make {
1N/A my $package = shift;
1N/A my $value = shift;
1N/A bless \$value, $package;
1N/A}
1N/A
1N/A++$loaded_count;
1N/A
1N/A1;