newSV_type
#ifndef newSV_type #if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) # define newSV_type(t) ({ SV *_sv = newSV(0); sv_upgrade(_sv, (t)); _sv; }) #else # define newSV_type(t) ((PL_Sv = newSV(0)), sv_upgrade(PL_Sv, (t)), PL_Sv) #endif #endif
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);
4 POD Errors
The following errors were encountered while parsing the POD:
Unknown directive: =provides
Unknown directive: =implementation
Unknown directive: =xsubs
Unknown directive: =tests
To install Devel::PPPort, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Devel::PPPort
CPAN shell
perl -MCPAN -e shell install Devel::PPPort
For more information on module installation, please visit the detailed CPAN module installation guide.