Perl::Critic - "Kritik" mit der ich nicht fertig werde (Fragen zu Perl-Modulen)

[thread]14912[/thread]

Perl::Critic - "Kritik" mit der ich nicht fertig werde

Leser: 37

Articles: hide open all | hide show old branches

+5 replies
roli

2010-04-04 19:10
User since
2004-12-31
424 Artikel
BenutzerIn
Hi,

ich habe folgendes Konstrukt in meinem Skript:
Code (perl): (dl )

my $tmp_eval_rc = eval "use Text::CSV";
Wenn ich Perl::Critic auf dieses Skript anwende, kommt folgendes dabei raus:
Code (perl): (dl )

Expression form of "eval" at line 13, column 2. See page 161 of PBP.
Bei allem was ich bislang gelesen habe, habe ich noch nichts gefunden, wie ich das verhindern kann.
Hat jeman einen Tip für mich?
Roland
--
"Steh vorn, während du fragst;
sitzen soll, wer antwortet."
Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
- MatthiasW
  
  2010-04-05 00:25
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  Hm... nunja, zum Laden eines Moduls bei Bedarf (ich denke darum geht es?) gibt es im Forum schon eine Menge.
  
  In deinem Beispiel wird $tmp_eval_rc immer false sein, egal ob das Modul geladen werden konnte, oder nicht.
  Benutze stattdessen entweder
  
  Code (perl): (dl )
  
  my $tmp_eval_rc = eval "use Text::CSV; 1";
  
  oder aber
  
  Code (perl): (dl )
  
  my $tmp_eval_rc = eval { require Text::CSV }; Text::CSV->import if $tmp_eval_rc;
  
  Letzteres lässt vermutlich die Meldung verschwinden, allerdings ist es auch nicht mehr so schön und handlich wie ein String-eval.
  
  An dieser Stelle würde ich einfach das Konstrukt verwenden, welches ich selbst schöner finde. Am String-eval ist hier jedenfalls nichts auszusetzen, also kannst du mMn ruhig über die Meldung hinwegsehen.
  
  MfG
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
- +3 replies
- renee
  
  2010-04-05 08:33
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Um einzelne Zeilen aus der Kritik zu nehmen, kann man als Kommentar "## no critic" dahinter schreiben. Das muss in der selben Zeile stehen wie der Code, den Du ausschließen willst. Sonst würdest Du einen kompletten Block aus der Kritik nehmen.
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +2 replies
  - Gast vifo
    
    2010-04-10 03:06
    Hi,
    
    wie renee schon schrieb, lässt sich das mit
    
    Code (perl): (dl )
    
    my $tmp_eval_rc = eval "use Text::CSV; 1"; ## no critic
    
    unterbinden. Dann wird Perl::Critic aber eine "Unrestricted '## no critic' annotation (Only disable the Policies you really need to disable)" anmerken. Eine (wenn auch aufwendige) Vorgehensweise ist es, den Fehler nachzuschlagen (unter http://search.cpan.org/~elliotjs/Perl-Critic/) drüber nachzudenken und dann selektiv mit
    
    Code (perl): (dl )
    
    my $tmp_eval_rc = eval "use Text::CSV; 1"; ## no critic qw(BuiltinFunctions::ProhibitStringyEval)
    
    abzuschalten.
    
    Grüße
    vifo
    Last edited: 2010-04-10 03:23:36 +0200 (CEST)
    - roli
      
      2010-07-21 20:50
      
      User since
      2004-12-31
      424 Artikel
      BenutzerIn
      
      Hi,
      
      ist zwar schon was her, aber
      
      Code: (dl )
      
      ## no critic qw(BuiltinFunctions::ProhibitStringyEval)
      
      das war's
      Roland
      --
      "Steh vorn, während du fragst;
      sitzen soll, wer antwortet."
      Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2

View all threads created 2010-04-04 19:10.