Perhaps you already know this, but is 'tied' function what you are looking for?

tie my %$hash, Class::Whatever;

# access the object as hash
$hash->{foo} = "bar";

# access the tied object directly
tied($hash)->SomeMethod();
[download]

/prakash