Moose::Meta::Method::Accessor:

* added pre- and post- sub body hooks in &generate_*_method methods.

diff --git a/lib/Moose/Meta/Method/Accessor.pm b/lib/Moose/Meta/Method/Accessor.pm
index a81b8db..57117e1 100644 (file)
--- a/lib/Moose/Meta/Method/Accessor.pm
+++ b/lib/Moose/Meta/Method/Accessor.pm
@@ -24,6 +24,7 @@ sub generate_accessor_method_inline {
        my $slot_name = sprintf "'%s'", $attr->slots;
        my $inv = '$_[0]';
     my $code = 'sub { '
+    . $self->_inline_pre_body($attr)
     . 'if (scalar(@_) == 2) {'
         . $self->_inline_check_required
         . $self->_inline_check_coercion
@@ -32,6 +33,7 @@ sub generate_accessor_method_inline {
                . $self->_inline_trigger($inv, $value_name)
     . ' }'
     . $self->_inline_check_lazy
+    . $self->_inline_post_body($attr)
     . 'return ' . $self->_inline_auto_deref($self->_inline_get($inv))
     . ' }';
     
@@ -54,10 +56,12 @@ sub generate_writer_method_inline {
     my $value_name = $attr->should_coerce ? '$val' : '$_[1]';
        my $inv = '$_[0]';
     my $code = 'sub { '
+    . $self->_inline_pre_body($attr)
     . $self->_inline_check_required
     . $self->_inline_check_coercion
        . $self->_inline_check_constraint($value_name)
        . $self->_inline_store($inv, $value_name)
+       . $self->_inline_post_body($attr)
        . $self->_inline_trigger($inv, $value_name)
     . ' }';
     
@@ -78,8 +82,10 @@ sub generate_reader_method_inline {
     my $attr_name = $attr->name;
     
     my $code = 'sub {'
+    . $self->_inline_pre_body($attr)
     . 'confess "Cannot assign a value to a read-only accessor" if @_ > 1;'
     . $self->_inline_check_lazy
+    . $self->_inline_post_body($attr)
     . 'return ' . $self->_inline_auto_deref( '$_[0]->{$attr_name}' ) . ';'
     . '}';