if( ! ref($r) ) { ## no ref here } elsif( ! eval { $r->can('isa') } ) { ## i'm an unblessed ref } else { ## i'm a blessed ref }