package UNIVERSAL;

sub safe_isa
{
  my $obj = shift;
  return unless defined $obj and ref $obj;

  $obj->isa(@_);
}