X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F200_examples%2F006_example_Protomoose.t;h=123d78506eb24a3d6a97ad5e8145deb3fbead2b4;hb=6a4a7c310ccaf4300113254461326415f74f93ac;hp=6719e5784ca0903f82bd953c934d67f3ab60133c;hpb=28422aa4aa8d4aec4eb54c9fcbbbe0494bd0d6b6;p=gitmo%2FMoose.git

diff --git a/t/200_examples/006_example_Protomoose.t b/t/200_examples/006_example_Protomoose.t
index 6719e57..123d785 100644
--- a/t/200_examples/006_example_Protomoose.t
+++ b/t/200_examples/006_example_Protomoose.t
@@ -67,7 +67,7 @@ Well cause merlyn asked if it could :)
         return $instance;
     }
     
-    sub generate_accessor_method {
+    sub _generate_accessor_method {
         my $self = shift;
         my $attr = $self->associated_attribute; 
         return sub {
@@ -81,7 +81,7 @@ Well cause merlyn asked if it could :)
         };
     }
 
-    sub generate_reader_method {
+    sub _generate_reader_method {
         my $self = shift;
         my $attr = $self->associated_attribute; 
         return sub {
@@ -90,7 +90,7 @@ Well cause merlyn asked if it could :)
         };   
     }
 
-    sub generate_writer_method {
+    sub _generate_writer_method {
         my $self = shift;
         my $attr = $self->associated_attribute; 
         return sub {