Writing Perl::Critic Policies

Ovid on 2007-10-17T09:53:11

I really need to learn to write Perl::Critic policies. There are three serious bugs here which even Perl::Critic's "harsh" setting ignores. At least one of them caused me to waste about 10 minutes of debugging today.

#!/usr/bin/perl

use strict;
use warnings;

my $foo, $bar = foo();
my ( $foo, $bar ) = foo() || '';

sub foo {
    my ( $foo, $bar ) = shift;
    return ( $foo, $bar );
}

---

Want some help?

elliot on 2007-10-17T15:57:08

Email me personally or dev@perlcritic.tigris.org.

Re:Want some help?

Ovid on 2007-10-18T06:57:10

I've joined the mailing list. Thanks!