From: Yuval Kogman <nothingmuch@woobling.org>
Date: Thu, 27 Apr 2006 22:28:18 +0000 (+0000)
Subject: remove $attr_name from the accessor generators
X-Git-Tag: 0_29_02~44
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=08388f1751d9e56224fd3aaab0d3e2b326b86d1f;p=gitmo%2FClass-MOP.git

remove $attr_name from the accessor generators
---

diff --git a/lib/Class/MOP/Attribute.pm b/lib/Class/MOP/Attribute.pm
index 5e2563c..2eeee2d 100644
--- a/lib/Class/MOP/Attribute.pm
+++ b/lib/Class/MOP/Attribute.pm
@@ -150,7 +150,7 @@ sub deallocate_slots {
 ## Method generation helpers
 
 sub generate_accessor_method {
-    my ($self, $attr_name) = @_;
+    my $self = shift;
     my $meta_instance = $self->associated_class->get_meta_instance;    
     my $slot_name = $self->slot_name;
 
@@ -161,7 +161,7 @@ sub generate_accessor_method {
 }
 
 sub generate_reader_method {
-    my ($self, $attr_name) = @_; 
+    my $self = shift;
     my $meta_instance = $self->associated_class->get_meta_instance;
     my $slot_name = $self->slot_name;
     sub { 
@@ -171,7 +171,7 @@ sub generate_reader_method {
 }
 
 sub generate_writer_method {
-    my ($self, $attr_name) = @_; 
+    my $self = shift;
     my $meta_instance = $self->associated_class->get_meta_instance;
     my $slot_name = $self->slot_name;
     sub { 
@@ -180,7 +180,7 @@ sub generate_writer_method {
 }
 
 sub generate_predicate_method {
-    my ($self, $attr_name) = @_; 
+    my $self = shift;
     my $meta_instance = $self->associated_class->get_meta_instance;
     my $slot_name = $self->slot_name;
     sub { 
@@ -517,13 +517,13 @@ use the custom method passed through the constructor.
 
 =over 4
 
-=item B<generate_accessor_method ($attr_name)>
+=item B<generate_accessor_method>
 
-=item B<generate_predicate_method ($attr_name)>
+=item B<generate_predicate_method>
 
-=item B<generate_reader_method ($attr_name)>
+=item B<generate_reader_method>
 
-=item B<generate_writer_method ($attr_name)>
+=item B<generate_writer_method>
 
 =back