sub STORE {
    my ($self, $val) = @_;
    $self->{code}($val) or _invalidate EINVAL;
    $self->{val} = $val;
}