sub new
{
	my ($class, %parameters) = \@_;

	my $self = bless ({}, ref ($class) || $class);

	return ($self);
}

##</code><code>##

sub new 
{
	my $invocant = shift;
	my $class = ref($invocant) || $invocant;
	my $self = { };
	bless($self, $class);
	return $self;
}