use Perl

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 );
}