X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FEmulate%2FClass%2FAccessor%2FFast%2FMeta%2FAccessor.pm;h=aa9dd7b620b1003a04c7a0ace308afbce7443f40;hb=6466899733a6bf4d306f31293d91fc475e64f218;hp=7dc9c814b17ca27c33adfc7e70b98440a491bd86;hpb=b41ad5fb702ac48ccff6d10c6fe4bc483038d64f;p=gitmo%2FMooseX-Emulate-Class-Accessor-Fast.git

diff --git a/lib/MooseX/Emulate/Class/Accessor/Fast/Meta/Accessor.pm b/lib/MooseX/Emulate/Class/Accessor/Fast/Meta/Accessor.pm
index 7dc9c81..aa9dd7b 100644
--- a/lib/MooseX/Emulate/Class/Accessor/Fast/Meta/Accessor.pm
+++ b/lib/MooseX/Emulate/Class/Accessor/Fast/Meta/Accessor.pm
@@ -4,7 +4,7 @@ use Moose;
 
 extends 'Moose::Meta::Method::Accessor';
 
-sub generate_accessor_method {
+sub _generate_accessor_method {
     my $attr = (shift)->associated_attribute;
     return sub {
         my $self = shift;
@@ -14,7 +14,7 @@ sub generate_accessor_method {
     };
 }
 
-sub generate_writer_method {
+sub _generate_writer_method {
     my $attr = (shift)->associated_attribute;
     return sub {
         my $self = shift;
@@ -24,7 +24,7 @@ sub generate_writer_method {
 }
 
 # FIXME - this is shite, but it does work...
-sub generate_accessor_method_inline {
+sub _generate_accessor_method_inline {
     my $attr          = (shift)->associated_attribute;
     my $attr_name     = $attr->name;
     my $meta_instance = $attr->associated_class->instance_metaclass;
@@ -42,10 +42,9 @@ sub generate_accessor_method_inline {
 
 {
     my $meta = __PACKAGE__->meta;
-    $meta->add_method(generate_writer_method_inline => $meta->get_method('generate_accessor_method_inline'));
+    $meta->add_method(_generate_writer_method_inline => $meta->get_method('_generate_accessor_method_inline'));
 }
 
 no Moose;
-__PACKAGE__->meta->make_immutable;
 
 1;