##
$object = tie( %hash, "Resources::$object_properties->{type}" );
##
##
package Resources::Action::View;
use base 'Resource::Base';
...and...
package Resource::Base;
use base 'Resource::Tied';
...and...
package Resource::Tied;
...which contains:
sub TIEHASH {
return bless( {}, shift );
}