in reply to Re^2: Go to perl::critic
in thread Go to perl::critic
You're right of course. However, after making sure goto wasn't flagged at any level, I took some artistic license to maximize comedic value and minimize snippet length. ;-)
pts/2 ryan@pi:~/src/shorts $> perlcritic -1 goto.pl No package-scoped "$VERSION" variable found at line 1, column 1. See +page 404 of PBP. (Severity: 2) Return value of flagged function ignored - say at line 6, column 1. S +ee pages 208,278 of PBP. (Severity: 1) Code before warnings are enabled at line 6, column 1. See page 431 of + PBP. (Severity: 4) 5 is not one of the allowed literal values (0, 1, 2). Use the Readonly + or Const::Fast module or the "constant" pragma instead at line 9, co +lumn 16. Unnamed numeric literals make code less maintainable. (Sev +erity: 2) Label "galileo" is not all upper case at line 10, column 1. See pages + 45,46 of PBP. (Severity: 1) Return value of flagged function ignored - say at line 10, column 10. + See pages 208,278 of PBP. (Severity: 1) Useless interpolation of literal string at line 10, column 14. See pa +ge 51 of PBP. (Severity: 1) Label "figaro" is not all upper case at line 13, column 1. See pages +45,46 of PBP. (Severity: 1) Return value of flagged function ignored - say at line 13, column 9. +See pages 208,278 of PBP. (Severity: 1)
In Section
Seekers of Perl Wisdom