User Warnungen aus öffentlichen OO Methoden, Konzepte?

[Siechfred]

Über Tipps zu bewährten Konzepten wäre ich dankbar.

Ich mache das über Packagevariablen:

package Blabla;  
our $ErrorMsg;  
  
sub nonsense {  
  my $self = shift;  
  my $wert = shift;  
  $ErrorMsg = 'You cheap lousy faggot!' if $wert !~ /$pattern/;  
  return $ErrorMsg ? 0 : 1;  
}

Und im Script:

$instance_of_Bla->nonsense('huh') or die $Bla::ErrorMsg;

Siechfred