package Child;

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

use base qw( Parent );

sub init {
	my $self = shift();
	my %values = @_;
	$self->SUPER::init(color => ($values{color}));
	$self->shape($values{shape} || 'square');
}

1;