sub error
{
  my $self=shift;
  my $error='';
  $error=$self->{_error} if($self->{_error})
  $self->{_error}='';
  return $error;
}

sub _set_error
{
  my $self=shift;
  my $error=shift // '';
  $self->{_error}=$error;
}