Better test =]
Shawn M Moore [Tue, 28 Apr 2009 08:53:07 +0000 (04:53 -0400)]
t/DynamicMoose/ProhibitPublicBuilders.run

index c38a3df..4232a46 100644 (file)
@@ -143,12 +143,13 @@ has foo => (
 ## cut
 
 for (1 .. 5) {
+    my $builder = "build_foo_$_";
     Class::MOP::Class->create(
         "Foo$_",
         attributes => [
             Class::MOP::Attribute->new(
                 name => "foo_$_",
-                builder => "build_foo_$_",
+                builder => $builder,
             ),
         ],
     );