Blame t/HAS_OVERLOAD.pm

Packit 14c646
package HAS_OVERLOAD;
Packit 14c646
Packit 14c646
use overload
Packit 14c646
	'""'	=> sub { ${$_[0]} }, fallback => 1;
Packit 14c646
Packit 14c646
sub make {
Packit 14c646
  my $package = shift;
Packit 14c646
  my $value = shift;
Packit 14c646
  bless \$value, $package;
Packit 14c646
}
Packit 14c646
Packit 14c646
++$loaded_count;
Packit 14c646
Packit 14c646
1;