Re^8: Which internal DSL are there in Perl? (Domain Specific Languages - Part 1)

[soonix]

I don't think so. Yes, it's a partial quote, but what I left off (end of surrounding block etc.) doesn't change much. When a package begins, the previous package ends. As I understand it, at end of enclosing block, the package ends, and you are in package main.
Update: I was completely wrong, see below...

[shmem]

As I understand it, at end of enclosing block, the package ends, and you are in package main.

No. You are back in the package you came from:

package Foo {
    print "(1) package " . __PACKAGE__ . $/;
    package Bar {
        print "(2) package " . __PACKAGE__ . $/;
    }
    print "(3) package " . __PACKAGE__ . $/;
}
print "(4) package " . __PACKAGE__ . $/;
__END__
(1) package Foo
(2) package Bar
(3) package Foo
(4) package main

[soonix]

That's what I deserve for posting before testing :-/