0_03

[gitmo/Moose.git] / lib / Moose / Meta / Attribute.pm

diff --git a/lib/Moose/Meta/Attribute.pm b/lib/Moose/Meta/Attribute.pm
index e7a40bc..2430aec 100644 (file)
--- a/lib/Moose/Meta/Attribute.pm
+++ b/lib/Moose/Meta/Attribute.pm
@@ -133,6 +133,14 @@ sub generate_writer_method {
        }
 }
 
+sub generate_reader_method {
+    my ($self, $attr_name) = @_; 
+    sub { 
+        confess "Cannot assign a value to a read-only accessor" if @_ > 1;
+        $_[0]->{$attr_name} 
+    };   
+}
+
 1;
 
 __END__
@@ -169,6 +177,8 @@ will behave just as L<Class::MOP::Attribute> does.
 
 =item B<generate_writer_method>
 
+=item B<generate_reader_method>
+
 =back
 
 =head2 Additional Moose features