#!/usr/bin/env perl

use v5.14;

package MyTie {
	use Attribute::Handlers;
	use Tie::Hash ();
	use base 'Tie::StdHash';
	sub TIEHASH {
		my $class = shift;
		warn "Tied hash: @_!!!\n";
		return $class->SUPER::TIEHASH(@_);
	}
	sub UNIVERSAL::MyTie :ATTR(HASH) {
		(my $name = ref $_[1] ? *{$_[1]} : $_[1]) =~ s/^\*?/%/;
		tie %{$_[2]}, 'MyTie', $name;
	}
	BEGIN { $INC{'MyTie.pm'} = __FILE__ };
}


use MyTie;
our %monkey :MyTie;
my %gorilla :MyTie;