sub raise_error {

 my $self = shift;
 $self->{'Raise'} = $_[0] if( defined($_[0]) );
 return($self->{'Raise'});
}