Disallow bless hackery around classes and instances

1 files changed, 10 insertions, 3 deletions

diff --git a/t/lib/croak/class b/t/lib/croak/class
index 2b564ee15e..e512282588 100644
--- a/t/lib/croak/class
+++ b/t/lib/croak/class
@@ -34,10 +34,17 @@ Cannot invoke a method of "XXX" on an instance of "YYY" at - line 6.
 ########
 no warnings 'experimental::class';
 use feature 'class';
-class XXX { method m { } }
-(bless {}, "XXX")->m()
+class XXX {}
+bless [], "XXX";
+EXPECT
+Attempt to bless into a class at - line 4.
+########
+no warnings 'experimental::class';
+use feature 'class';
+class XXX {}
+bless(XXX->new, "main");
 EXPECT
-Cannot invoke method "m" on a non-instance at - line 4.
+Can't bless an object reference at - line 4.
 ########
 no warnings 'experimental::class';
 use feature 'class';