sub TIESCALAR {
    my $class = shift;
    if (defined $_[1]) {
        $_[0]($_[1]) or _invalidate EINVAL;
    }
    bless { code => $_[0], val => $_[1]}, $class;
}