OOP Parameterübergabe direkt oder indirekt ? (gelöst) - #175104 (Allgemeines zu Perl)

Gast wer

2014-04-29 10:32

mach methoden "error" und "has_error". speichere die fehlermeldungen im objekt.

Code (perl): (dl )

print $obj->error if $obj->has_error;

Code (perl): (dl )

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 ;
  ...
}

oder mache einem handler:

Code (perl): (dl )

$obj->set_error_handler(sub{ print "$_[1]\n" });

Code (perl): (dl )

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 ;
  ...
}