if(  ! ref($r)  ) {
    #no reference at all
} elsif(  ! eval { $r->can('can') }  ) {
    #unblessed ref
} else {
    #blessed ref
}