Add some whitespace

[gitmo/Moose.git] / lib / Moose / Meta / Method / Accessor / Native / Array / Reader.pm

diff --git a/lib/Moose/Meta/Method/Accessor/Native/Array/Reader.pm b/lib/Moose/Meta/Method/Accessor/Native/Array/Reader.pm
index 39ce6a9..7928eac 100644 (file)
--- a/lib/Moose/Meta/Method/Accessor/Native/Array/Reader.pm
+++ b/lib/Moose/Meta/Method/Accessor/Native/Array/Reader.pm
@@ -7,36 +7,9 @@ our $VERSION = '1.13';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 
-use base 'Moose::Meta::Method::Accessor::Native::Array';
-
-sub _generate_method {
-    my $self = shift;
-
-    my $inv = '$self';
-
-    my $code = 'sub {';
-    $code .= "\n" . $self->_inline_pre_body(@_);
-
-    $code .= "\n" . 'my $self = shift;';
-    $code .= "\n" . $self->_inline_curried_arguments;
-    $code .= "\n" . $self->_inline_process_arguments;
-    $code .= "\n" . $self->_inline_check_arguments;
-
-    $code
-        .= "\n"
-        . $self->_inline_throw_error(
-        q{"Cannot assign a value to a read-only accessor"}, 'data => \@_' )
-        . ' if @_ > 1;';
-
-    $code .= "\n" . $self->_inline_check_lazy($inv);
-    $code .= "\n" . $self->_inline_post_body(@_);
-
-    my $slot_access = $self->_inline_get($inv);
-
-    $code .= "\n" . 'return ' . $self->_return_value($slot_access) . ';';
-    $code .= "\n}";
-
-    return $code;
-}
+use base qw(
+    Moose::Meta::Method::Accessor::Native::Array
+    Moose::Meta::Method::Accessor::Native::Reader
+);
 
 1;