The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

newSV_type

#ifndef newSV_type

#if { NEED newSV_type }

SV* newSV_type(pTHX_ svtype const t) { SV* const sv = newSV(0); sv_upgrade(sv, t); return sv; }

#endif

#endif

#define NEED_newSV_type

int newSV_type() PREINIT: SV* sv; CODE: RETVAL = 0; sv = newSV_type(SVt_NULL); if (SvTYPE(sv) == SVt_NULL) { RETVAL++; } SvREFCNT_dec(sv);

                sv = newSV_type(SVt_PVIV);
                if (SvTYPE(sv) == SVt_PVIV)
                {
                  RETVAL++;
                }
                SvREFCNT_dec(sv);

                sv = newSV_type(SVt_PVHV);
                if (SvTYPE(sv) == SVt_PVHV)
                {
                  RETVAL++;
                }
                SvREFCNT_dec(sv);

                sv = newSV_type(SVt_PVAV);
                if (SvTYPE(sv) == SVt_PVAV)
                {
                  RETVAL++;
                }
                SvREFCNT_dec(sv);
        OUTPUT:
                RETVAL

ok(Devel::PPPort::newSV_type(), 4);

5 POD Errors

The following errors were encountered while parsing the POD:

Around line 12:

Unknown directive: =provides

Around line 16:

Unknown directive: =implementation

Around line 34:

Unknown directive: =xsinit

Around line 38:

Unknown directive: =xsubs

Around line 77:

Unknown directive: =tests