view release on metacpan or  search on metacpan

lib/Smart/Match/Overload.xs  view on Meta::CPAN

#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

MODULE = Smart::Match::Overload				PACKAGE = Smart::Match::Overload

int
_boolean(self, ...)
	SV* self;
	PPCODE:
		dUNDERBAR;
		if (UNDERBAR != DEFSV) {
			SAVESPTR(DEFSV);
			DEFSV = UNDERBAR;
		}
		PUSHMARK(SP);
		call_sv(self, G_SCALAR | G_NOARGS);
		SPAGAIN;