my $tied_object = tie my %hash, MyClass;
my $instance = bless \%hash, MyOtherClass;
$tied_object->frobcinate(42);
$instance->bedazzle( with => 'evil' );