sub new {

		my ( $Type , %Param ) = @_;
		
		my $Self = bless { } , $Type;
	
		for my $Parameter ( sort keys %Param ) 
		{
			$Self -> { Parameter } -> { $Parameter } = $Param{ $Parameter };
		}

		return $Self;
	}