The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
__END__
# NAME our @a->{0}
# Somewhat nonsensical, but at least it should not fail an assertion.
our @a->{0};
EXPECT
Can't use an undefined value as a HASH reference at - line 2.
########
# NAME [perl #119809] Attempt to bless into a reference (tied)
sub TIESCALAR { bless [] }
sub FETCH { [] }
tie $t, "";
bless({}, $t);
EXPECT
Attempt to bless into a reference at - line 4.
########
# NAME [perl #119809] Attempt to bless into a reference (magical)
$/ = \1;
bless [], $/
EXPECT
Attempt to bless into a reference at - line 2.
########
# NAME Attempt to bless into a reference after method changes
sub foo{} bless [], bless []
EXPECT
Attempt to bless into a reference at - line 1.