eval { $ref->isa() };
if ($@) {
  # Isnt an object
}
else {
  # Is an object
}