Re: Setting a custom hash accessor handle in Moose attribute

[stvn]

Try this:

before 'custom_field' => sub {
    my $self = shift;
    if (scalar @_ == 1) {
        my $key = shift;
        confess "The field $key does not exist"
            unless $self->has_custom_field( $key );
    }
};

[daverave]

Thank you.