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