Help for this page

Select Code to Download

Select or download this

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