if(  ref($r)  &&  UNIVERSAL::can($r,'can')  ) {
        # blessed ref
    }