Include method name in immutable methods (fixes #49680)

[gitmo/Class-MOP.git] / t / 019_anon_class_keep_alive.t

diff --git a/t/019_anon_class_keep_alive.t b/t/019_anon_class_keep_alive.t
index a1663a9..8ff651f 100644 (file)
--- a/t/019_anon_class_keep_alive.t
+++ b/t/019_anon_class_keep_alive.t
@@ -1,14 +1,10 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
-use Test::More tests => 11;
+use Test::More tests => 10;
 use Test::Exception;
 
-BEGIN {
-    use_ok('Class::MOP');
-}
+use Class::MOP;
 
 my $anon_class_name;
 my $anon_meta_name;
@@ -24,7 +20,7 @@ my $anon_meta_name;
 
     my $anon_class = Class::MOP::Class->create_anon_class(superclasses => [$class]);
     $anon_class_name = $anon_class->name;
-    $anon_meta_name = $anon_class->blessed;
+    $anon_meta_name = Scalar::Util::blessed($anon_class);
     $anon_class->add_attribute( $_, reader => $_ ) for qw/bar baz/;
 
     my $obj = $anon_class->new_object(bar => 'a', baz => 'b');