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