sub FETCH {
    defined $_[0]{val} or _invalidate EINVAL;
    $_[0]->{val};
}

sub DESTROY {
   # nothing to do
}

1;