if(  ! ref($r)  ) {
    # no reference at all
} elsif(  ! UNIVERSAL::can($r,'can')  ) {
    # unblessed ref
} else {
    # blessed ref
}