<HTML dir=ltr><HEAD>
<META http-equiv=Content-Type content="text/html; charset=unicode">
<META content="MSHTML 6.00.2900.2912" name=GENERATOR></HEAD>
<BODY>
<DIV><FONT face=Arial color=#000000 size=2>Tis een beetje een cross-post met mijn use.perl journal maar dit leek me toch leuk genoeg om te delen..</FONT></DIV>
<DIV><FONT face=Arial size=2>Onderstaande output is perl-critic op een mod_perl applicatie die ik ergens om mijn schijf heb liggen (applicatie heeft +/- 11000 lijnen):</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>"die" used instead of "croak" = 6<BR>"unless" block used = 1<BR>"warn" used instead of "carp" = 24<BR>@ISA used instead of "use base" = 16<BR>AUTOLOAD method declared = 14<BR>Ambiguous name for variable or subroutine = 19<BR>Bareword file handle opened = 1<BR>Builtin function called with parens = 226<BR>Capture variable used outside conditional = 5<BR>Code before warnings are enabled = 6736<BR>Expression form of "eval" = 16<BR>File handle for "print" is not braced = 1<BR>Heredoc terminator must be quoted = 5<BR>Loop iterator is not lexical = 6<BR>Magic punctuation variable used = 21<BR>Missing "BUGS AND LIMITATIONS" section in POD = 67<BR>Missing "CONFIGURATION AND ENVIRONMENT" section in POD = 67<BR>Missing "DEPENDENCIES" section in POD = 67<BR>Missing "DIAGNOSTICS" section in POD = 67<BR>Missing "INCOMPATIBILITIES" section in POD = 67<BR>Missing "LICENSE AND COPYRIGHT" section in POD = 67<BR>Missing "SUBROUTINES/METHODS" section in POD = 67<BR>Missing "SYNOPSIS" section in POD = 4<BR>Mixed high and low-precedence booleans = 2<BR>Mixed-case subroutine name = 2<BR>Package variable declared or used = 8<BR>Postfix control "if" used = 297<BR>Postfix control "unless" used = 16<BR>Pragma "constant" used = 23<BR>Quotes used with a noisy string = 39<BR>Quotes used with an empty string = 171<BR>RCS keywords $HeadURL$ not found = 13<BR>RCS keywords $Id$ not found = 67<BR>RCS keywords $Revision$, $HeadURL$, $Date$ not found = 54<BR>RCS keywords $Revision$, $Source$, $Date$ not found = 54<BR>RCS keywords $Source$ not found = 13<BR>Regular expression without "/m" flag = 448<BR>Regular expression without "/x" flag = 448<BR>String delimiter used with "split" = 16<BR>Subroutine called with "&" sigil = 2<BR>Subroutine does not end with "return" = 37<BR>Subroutine name is a homonym for builtin function = 3<BR>Subroutine with high complexity score = 21<BR>Symbols are exported by default = 2<BR>Two-argument "open" used = 1<BR>Useless interpolation of literal string = 643<BR>Variable declared in conditional statement = 53<BR>Warnings disabled = 14</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>Perl critic is traditioneel verdeeld in 5 catego</FONT><FONT face="Courier New" size=2>rieen.. (1: laagste severity, 5: hoogste severity)</FONT></DIV>
<DIV><FONT face="Courier New" size=2>Momenteel heb ik 90% van de issues van severity 3 tot 5 gefixed en de rest is bitneukerij :)</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>Critic?</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>H.</FONT></DIV></BODY></HTML>