Don't use explicit sub token with lives_ok
Dave Rolsky [Thu, 28 Oct 2010 17:46:54 +0000 (12:46 -0500)]
t/030_roles/031_roles_applied_in_create.t

index 10d698c..0d45373 100644 (file)
@@ -13,16 +13,14 @@ use lib 't/lib', 'lib';
 
 # Note that this test passed (pre svn #5543) if we inlined the role
 # definitions in this file, as it was very timing sensitive.
-lives_ok(
-    sub {
-        my $builder_meta = Moose::Meta::Class->create(
-            'YATTA' => (
-                superclass => 'Moose::Meta::Class',
-                roles      => [qw( Role::Interface Role::Child )],
-            )
-        );
-    },
-    'Create a new class with several roles'
-);
+lives_ok {
+    my $builder_meta = Moose::Meta::Class->create(
+        'YATTA' => (
+            superclass => 'Moose::Meta::Class',
+            roles      => [qw( Role::Interface Role::Child )],
+        )
+    );
+}
+'Create a new class with several roles';
 
 done_testing;