if ( $obj->isa( 'Product::Real' ) ) {
    # do some real stuff
} else {
    # do some potential stuff
}