Perl Quizで遊んでみる
Perl Quiz - package名について - Islands in the byte stream
#!perl -w use strict; use Test::More 'no_plan'; sub f{ package main::Foo; } f(); is ref(bless({}, 'Foo')), 'Foo';
とか
#!perl -w use strict; use Test::More 'no_plan'; sub f{ package Foo; our @ISA = ('Foo'); } f(); is ref(bless({}, 'Foo')), 'Foo';
死ぬのは無し?でもf関数で死ぬわけじゃないから有り?
#!perl -w use strict; use Test::More 'no_plan'; sub f{ }__END__ } f(); is ref(bless({}, 'Foo')), 'Foo';
もういいや!