Select Code to Download

sub some_method {
    my $self = shift;
    $self->{'_very_internal_flag'} = 1;
    #...
}

package OO; # RFC
use strict;
...
}

1;

package Car;
use base 'OO';
...
       $self->oo_get( 'color' );
    }
}