package Car;
use base 'OO';

sub color { #my accessor/mutator
    my $self = shift;
    if( @_ ){
       $self->oo_set( 'color' , $_[0] );
    }
    else {
       $self->oo_get( 'color' );
    }
}

package Rover; #a class of it's own ;)

sub get_set_color {
    my $self = shift;

    if( @_ ){
       $self->oo_set( 'color' , $_[0] );
    }
    else {
       $self->oo_get( 'color' );
    }
}