sub error { my $x=$_[0]->{error}; $_[0]->{error}=''; $x }
sub has_error{ $_[0]->{error}? 1 : 0 }

sub ... {
  ...
  $self->{error}='Das ist ein Fehler' unless $ok ;
  ...
}