undefでblessするとどうなるか

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;
}