use Class::Irgendwas; BEGIN { # alte Methode sichern my $ref=\&Class::Irgedndwas::method; # überschreiben mit neuer Methode *Class::Irgedndwas::method=sub { return $ref->(@_) if(@_==2); my $self=shift; my $val1=shift; my $val2=shift; # ... return #... } }