Select Code to Download

package MyApp::Object;
use base qw( Class::Accessor::Fast );
...
    bless( $self, $type ); 
    return $self;
}

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