MODULE = SWISH::3 PACKAGE = SWISH::3::Property
PROTOTYPES: enable
SV*
id (self)
swish_Property *self;
CODE:
RETVAL = newSViv( self->id );
OUTPUT:
RETVAL
SV*
name (self)
swish_Property *self;
CODE:
RETVAL = newSVpvn( (char*)self->name, strlen((char*)self->name) );
OUTPUT:
RETVAL
SV*
ignore_case (self)
swish_Property *self;
CODE:
RETVAL = newSViv( self->ignore_case );
OUTPUT:
RETVAL
SV*
type (self)
swish_Property *self;
CODE:
RETVAL = newSViv( self->type );
OUTPUT:
RETVAL
SV*
verbatim (self)
swish_Property *self;
CODE:
RETVAL = newSViv( self->verbatim );
OUTPUT:
RETVAL
SV*
max (self)
swish_Property *self;
CODE:
RETVAL = newSViv( self->max );
OUTPUT:
RETVAL
SV*
sort (self)
swish_Property *self;
CODE:
RETVAL = newSViv( self->sort );
OUTPUT:
RETVAL
SV*
presort (self)
swish_Property *self;
CODE:
RETVAL = newSViv( self->presort );
OUTPUT:
RETVAL
SV*
alias_for (self)
swish_Property *self;
CODE:
if (self->alias_for == NULL) {
RETVAL = &PL_sv_undef;
}
else {
RETVAL = newSVpvn( (char*)self->alias_for, strlen((char*)self->alias_for) );
}
OUTPUT:
RETVAL
void
DESTROY (self)
swish_Property *self;
CODE:
self->ref_cnt--;
if (SWISH_DEBUG) {
warn("DESTROY %s [0x%lx] [ref_cnt = %d]",
SvPV(ST(0), PL_na), (long)self, self->ref_cnt);
}
if (self->ref_cnt < 1) {
swish_property_free(self);
}