sub get_attribute {
	my ( $self, $attribute ) = @_;
	if  ((exists(  $self->{ATTRIBUTES}  )) and  ( defined( ${ $self->{ATTRIBUTES} }{$attribute} ) )  ) {
		return ${ $self->{ATTRIBUTES} }{$attribute};
	}
	return undef;
}