perl6 – 如何通过Nativecall回调传递Perl 6对象？

该库将多次调用我的回调函数.

这很好.我可以用右边声明我的回调
签名,将其作为&回调传递,并且库只调用sub
精细.

它还能够将有效负载void *指针设置为任何东西
我想,它将包括在我的回调函数调用中.

我可以隐藏一个Perl Str,例如,在有效载荷中成功往返吗？

sub set_userdata(Pointer) returns int32 is native { ... }

sub set_callback(&callback(Pointer $userdata --> int32)) returns int32 is native { ... }

sub callback(Pointer $userdata) returns int32 {
    my Str $mystring = ???
    ...
}

my Str $my-userdata-string;

set_userdata(???);
set_callback(&callback);

看起来它可能适用于一些绑定,“是rw”,nativecast()和/或.deref.