(You can tell what kind of Animal you have by calling ref $obj on an instance.)

But don't do that, as it will break the "null subclass test". Instead, use "isa" or "can" to test inheritance or capability. The code:

if (ref $this eq "Some::Class::Of::Interest") {
  ...
}
[download]

is almost always wrong, and is red-flagged in my code reviews.