packageディレクティブのスコープ
package Foo; print __PACKAGE__ . "\n"; { package Bar; print __PACKAGE__ . "\n"; } print __PACKAGE__ . "\n"; # <実行結果> # ふむふむ,ブロックで package のスコープは変わるんだな。 # $ perl ./try.pl # Foo # Bar # Foo
package Foo; print __PACKAGE__ . "\n"; { package Bar; print __PACKAGE__ . "\n"; } print __PACKAGE__ . "\n"; # <実行結果> # ふむふむ,ブロックで package のスコープは変わるんだな。 # $ perl ./try.pl # Foo # Bar # Foo