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

Attachment: pgpQTxvdv3gAY.pgp
Description: PGP signature

Reply via email to