if eval( $r->can('can')) {
	#we have an object
} elsif ref( $r) {
	#we have an unblessed reference
} else {
	#no reference at all
}