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( 'colour' );
    }
}