X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2FDynamicMoose%2FProhibitPublicBuilders.run;h=dc83fe495f90e02d3a444b110a6fdcf305c125d3;hb=54b16ed8690d2ccdeb518e65fdee8e4c8f3f54bd;hp=4c584fffe8413ecd2fba185b959b4304e322b5a2;hpb=1e6decf8a5d422a28f880f62e61953d4f988d0c2;p=gitmo%2FPerl-Critic-Dynamic-Moose.git

diff --git a/t/DynamicMoose/ProhibitPublicBuilders.run b/t/DynamicMoose/ProhibitPublicBuilders.run
index 4c584ff..dc83fe4 100644
--- a/t/DynamicMoose/ProhibitPublicBuilders.run
+++ b/t/DynamicMoose/ProhibitPublicBuilders.run
@@ -37,3 +37,32 @@ has attr => (
     builder => 'build_attr',
 );
 
+#-----------------------------------------------------------------------------
+
+## name Public builder method, declared dynamically
+## failures 1
+## cut
+
+package Class;
+use Moose;
+
+__PACKAGE__->meta->add_attribute(attr => (
+    is => 'rw',
+    builder => 'build_attr',
+));
+
+#-----------------------------------------------------------------------------
+
+## name Public builder method, named dynamically
+## failures 1
+## cut
+
+package Class;
+use Moose;
+
+my $builder = 'build_' . rand;
+__PACKAGE__->meta->add_attribute(attr => (
+    is => 'rw',
+    builder => $builder,
+));
+