if(  ref($obj)  &&  UNIVERSAL::can($obj,'can')  ) {
# or
    if(  ref($obj)  &&  UNIVERSAL::can($obj,'isa')  ) {