Help for this page

Select Code to Download


  1. or download this
    
#!/usr/bin/perl
...
exit(0);
my $baz = 'quux';
  2. or download this
    $ perlcritic 1140661.pl
Code before strictures are enabled at line 3, column 1.  See page 429 
+of PBP.  (Severity: 5)
  3. or download this
    $ perlcritic -4 1140661.pl
Code before strictures are enabled at line 3, column 1.  See page 429 
+of PBP.  (Severity: 5)
Unreachable code at line 9, column 1.  Consider removing it.  (Severit
+y: 4)
$