sub foo :lvalue { out_param_xs_sub(my $x); $x }