undefでblessすると、特にエラーにならずmainパッケージになります。
my $self = bless {} , undef;
warn ref $self ; #main
ってか、blessって
bless {};
でエラーにならないのか!
今日のPerl Beginnersで行ったライブコーディングで動かなかったのは、以下の$classがundefなせいでした。
sub new {
my $class; # shiftがない!
my $env = shift;
bless { env => $env }, $class;
}
0 件のコメント:
コメントを投稿