SV *
array(self, num = 1)
Anarres::Mud::Driver::Compiler::Type self
int num
CODE:
{
/* I can't quite get the typemap to bless an output
* reference to a scalar. */
int i;
SV *out;
out = newSVpvn("", 0);
for (i = 0; i < num; i++) {
sv_catpvn(out, "*", 1);
}
sv_catsv(out, self);
RETVAL = sv_bless(newRV_noinc(out),
gv_stashpv(_AMD "::Compiler::Type", TRUE));
}
OUTPUT:
RETVAL
SV *
mapping(self, num = 1)
Anarres::Mud::Driver::Compiler::Type self
int num
CODE:
{
/* I can't quite get the typemap to bless an output
* reference to a scalar. */
int i;
SV *out;
out = newSVpvn("", 0);
for (i = 0; i < num; i++) {
sv_catpvn(out, "#", 1);
}
sv_catsv(out, self);
RETVAL = sv_bless(newRV_noinc(out),
gv_stashpv(_AMD "::Compiler::Type", TRUE));
}
OUTPUT:
RETVAL