[Moscow.pm] Странности и неожиданности Perl

[Andrew Fedorov]

use Data::Dumper;

sub aa {
    my $bad_day = 1;
    return if $bad_day;
    return 'bla-bla-bla';
}

my $test = {
    a => aa,
    b => 1,
};

print Dumper($test);

=====================
$VAR1 = {
          '1' => undef,
          'a' => 'b'
        };
=====================
Очень многие используют return if/unless для выхода и вот к чему это может привести. Особенно следует учитывать при использовании чужих библиотек :)