#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;