小编kmx*_*kmx的帖子

我有一个像这样的perl对象(祝福哈希的引用).

sub funcname {
  #some code
}

my $o = My::Class->new();
$o->{internal_data} = \&funcname; #I know it is not nice

在XS代码中的某个地方,我有$ o引用,我需要获取值$o->{internal_data}.

/* at some point in XS code */
SV *obj = ... /* $o value passed to a XS function */
SV *func;
...
/* here I do not know how to load $o->{internal_data} value into func */
...
call_sv(func,G_SCALAR);

perl中可能还有一些章节(api | xstut | guts | ???).我只是无法找到它.

提前感谢任何提示.

- kmx