And what about:
foo();
for 1..3 {
my $x ::= 3;
sub foo { say ++$x };
say ++$x
};
BEGIN {
foo();
foo();
}
or worse:
sub moose {
my $x = 3;
sub foo { say ++$x;
}
BEGIN {
foo();
moose();
foo();
}
foo();
moose();
foo();
*foam oozes out of ears*
--
Yuval Kogman <[EMAIL PROTECTED]>
http://nothingmuch.woobling.org 0xEBD27418
pgpQTxvdv3gAY.pgp
Description: PGP signature
