package Parent;

use strict;
use warnings;
use Class::MethodMaker
	new_hash_init => 'new',
	get_set       => [qw( color )];

sub init {
	my $self = shift();
	print STDERR "initializing parent\n";
	my %values = @_;
	$self->color($values{color});
}

1;