diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-07-05 03:26:09 -0300 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:00:58 -0700 |
| commit | d21989edd792d90d0833257821df6bf9f2ef8e76 (patch) | |
| tree | 9b1d36df0627592edcfcf66c724e6154adab64db /ext/XS-APItest/APItest.xs | |
| parent | b017083ab8aa5210fe7dd9b6b490c08e03f6cf8a (diff) | |
| download | perl-d21989edd792d90d0833257821df6bf9f2ef8e76.tar.gz | |
gv.c: Added gv_fetchmeth_(sv|pv|pvn)_autoload.
Diffstat (limited to 'ext/XS-APItest/APItest.xs')
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 56c9dd92d5..a71e61d7fb 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -1897,6 +1897,34 @@ gv_fetchmeth_type(stash, methname, type, level, flags) XPUSHs( gv ? MUTABLE_SV(gv) : &PL_sv_undef ); void +gv_fetchmeth_autoload_type(stash, methname, type, level, flags) + HV* stash + SV* methname + int type + I32 level + I32 flags + PREINIT: + STRLEN len; + const char * const name = SvPV_const(methname, len); + GV* gv; + PPCODE: + switch (type) { + case 0: + gv = gv_fetchmeth_autoload(stash, name, len, level); + break; + case 1: + gv = gv_fetchmeth_sv_autoload(stash, methname, level, flags); + break; + case 2: + gv = gv_fetchmeth_pv_autoload(stash, name, level, flags | SvUTF8(methname)); + break; + case 3: + gv = gv_fetchmeth_pvn_autoload(stash, name, len, level, flags | SvUTF8(methname)); + break; + } + XPUSHs( gv ? MUTABLE_SV(gv) : &PL_sv_undef ); + +void eval_sv(sv, flags) SV* sv I32 flags |