if( ref($r) && eval { $r->can('can') } ) { # blessed ref }