*{$caller."::".$field} = sub
{
    local *__ANON__ = "${caller}::${field}";
    my $self = shift;
    return $self->STORE( $field, @_ ) if @_;
    return $self->FETCH( $field );
};