Как изменить атрибут атрибута Moose?

Question

После phaylon's answer to "How can I flexibly add data to Moose objects?", предположим, что у меня есть следующий Муз атрибут:

has custom_fields => (
    traits  => [qw(Hash)], 
    isa  => 'HashRef', 
    builder => '_build_custom_fields', 
    handles => { 
     custom_field   => 'accessor', 
     has_custom_field  => 'exists', 
     custom_fields  => 'keys', 
     has_custom_fields => 'count', 
     delete_custom_field => 'delete', 
    }, 
); 

sub _build_custom_fields { {} } 

Теперь предположим, что я хотел бы каркать, если пытаться читать (но не писать) в несуществующий настраиваемого поля. Мне предложили phaylon обернуть custom_field с помощью модификатора. Я экспериментировал с модификаторами around, следуя различным примерам в документах Moose, но не мог понять, как изменить дескриптор (а не только метод объекта).

В качестве альтернативы, существует ли еще один способ реализовать этот ключ прокручивания, если -пробовать-читать-не-существующий?

Answer 1

Они все еще просто методы, созданные Moose. Вы можете просто сделать:

around 'custom_field' => sub { 
    my $orig = shift; 
    my $self = shift; 
    my $field = shift; 

    confess "No $field" unless @_ or $self->has_custom_field($field); 

    $self->$orig($field, @_); 
}; 

(.. croak не очень полезно в методе модификаторов на данный момент он просто укажет вам на внутреннем Мус коде)

На самом деле, вам не нужно использовать around для этого. Использование before проще:

before 'custom_field' => sub { 
    my $self = shift; 
    my $field = shift; 

    confess "No $field" unless @_ or $self->has_custom_field($field); 
};