sub new
{
	my $class=shift;
	my $self=$class->SUPER::new(@_);
	$self->{'x'}='y';
	return $self;
}