sub error {

 my $self = shift;

 if( defined($_[0]) ) {
    $self->{'Error'} = $_[0];
    if( $self->raise_error() ) {
       warn("$_[0]\n");
       }
    if( $self->die_error() ) {
       die("$_[0]\n");
       }
    }

 return($self->{'Error'});
}