sub on_error{ $_[0]->{error}->(@_) if $_[0]->{error} }
sub set_error_handler{ $_[0]->{error}=$_[1] if ref $_[1] eq 'CODE' }

sub ... {
  ...
  $self->on_error('Das ist ein Fehler') unless $ok ;
  ...
}