Thread Perlcritic bzw. Perl Best Practice & rekursive Funktion (6 answers)
Opened by roli at 2009-10-03 14:38

roli
 2009-10-03 14:38
#126431 #126431
User since
2004-12-31
424 Artikel
BenutzerIn
[default_avatar]
Hallo,

ich habe mittlerweile angefangen Perlcritic zu nutzen, und habe aufgrund dessen auch schon einige durchaus sinnvolle Änderungen an meinem Programm vorgenommen. Das ich's wohl nicht auf einen Level 1 ohne Meldungen bringen werde ist für mich ok, aber aktuell hänge ich an folgender Meldung, bei der ich noch keine Idee habe wie ich sie ausbauen kann:
Quote
Subroutine "rekursion" does not end with "return" at line 92, column 1. See page 197 of PBP. (Severity: 4)

Bei der Subroutine "rekursion" handelt es sich um eine Funktion, die sich selbst wieder aufruft, bis eine bestimmte Bedingung erfüllt ist.
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
sub rekursion {
  my($arg1, $arg2) = @_;

  #...

  if(($arg2 - $arg1) == 0) {
    return ($arg2);
  }
  # erneute Rekursion
  else {
    rekursion($arg1, $arg2);
  }
}

Gibt's hier eine "Lösung" um Perlcritic zufrieden zustellen, oder ist das ein Fall, in dem ich die Kritik ignorieren sollte?
Roland
--
"Steh vorn, während du fragst;
sitzen soll, wer antwortet."
Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2

View full thread Perlcritic bzw. Perl Best Practice & rekursive Funktion