http://www.perlmonks.org?node_id=94586


in reply to Object and tied hash all at once?

Try this code 
sub tiebless {
my %x;
tie %x,shift;
return bless \%x,shift;
}

[download]

In Section Seekers of Perl Wisdom