1 ################################################################################
5 ## $Date: 2010/03/07 13:15:44 +0100 $
7 ################################################################################
9 ## Version 3.x, Copyright (C) 2004-2010, Marcus Holland-Moritz.
10 ## Version 2.x, Copyright (C) 2001, Paul Marquess.
11 ## Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
13 ## This program is free software; you can redistribute it and/or
14 ## modify it under the same terms as Perl itself.
16 ################################################################################
24 __UNDEFINED__ GvSVn(gv) GvSV(gv)
25 __UNDEFINED__ isGV_with_GP(gv) isGV(gv)
26 __UNDEFINED__ gv_fetchpvn_flags(name, len, flags, svt) gv_fetchpv(name, flags, svt)
27 __UNDEFINED__ gv_fetchsv(name, flags, svt) gv_fetchpv(SvPV_nolen_const(name), flags, svt)
29 __UNDEFINED__ get_cvn_flags(name, namelen, flags) get_cv(name, flags)
39 gv = gv_fetchpvs("Devel::PPPort::GvTest", GV_ADDMULTI, SVt_PVGV);
40 if (GvSVn(gv) != NULL)
53 gv = gv_fetchpvs("Devel::PPPort::GvTest", GV_ADDMULTI, SVt_PVGV);
58 if (!isGV(&PL_sv_undef))
71 xv = get_cvn_flags("Devel::PPPort::foobar", sizeof("Devel::PPPort::foobar")-1, 0);
72 if(xv == NULL) RETVAL++;
73 xv = get_cvn_flags("Devel::PPPort::foobar", sizeof("Devel::PPPort::foobar")-1, GV_ADDMULTI);
74 if(xv && SvTYPE(xv) == SVt_PVCV) RETVAL++;
75 xv = get_cvn_flags("Devel::PPPort::get_cvn_flags", sizeof("Devel::PPPort::get_cvn_flags")-1, 0);
76 if(xv && SvTYPE(xv) == SVt_PVCV) RETVAL++;
83 RETVAL = newRV_inc((SV*)gv_fetchpvn_flags("Devel::PPPort::VERSION", sizeof("Devel::PPPort::VERSION")-1, 0, SVt_PV));
91 RETVAL = newRV_inc((SV*)gv_fetchsv(name, 0, SVt_PV));
97 ok(Devel::PPPort::GvSVn(), 1);
99 ok(Devel::PPPort::isGV_with_GP(), 2);
101 ok(Devel::PPPort::get_cvn_flags(), 3);
103 ok(Devel::PPPort::gv_fetchpvn_flags(), \*Devel::PPPort::VERSION);
105 ok(Devel::PPPort::gv_fetchsv("Devel::PPPort::VERSION"), \*Devel::PPPort::VERSION);