[gitmo/Moose.git] / xs / Method.xs

#include "mop.h"

MODULE = Class::MOP::Method   PACKAGE = Class::MOP::Method

PROTOTYPES: DISABLE

BOOT:
    INSTALL_SIMPLE_READER(Method, name);
    INSTALL_SIMPLE_READER(Method, package_name);
    INSTALL_SIMPLE_READER(Method, body);

bool
is_stub(self)
    SV *self

    PREINIT:
        CV *const body = (CV *)SvRV( HeVAL( hv_fetch_ent((HV *)SvRV(self), KEY_FOR(body), 0, HASH_FOR(body)) ) );

    CODE:
        RETVAL = !( CvISXSUB(body) || CvROOT(body) );

    OUTPUT:
        RETVAL
Commit	Line	Data
38bf2a25	1	#include "mop.h"
	2
	3	MODULE = Class::MOP::Method PACKAGE = Class::MOP::Method
	4
	5	PROTOTYPES: DISABLE
	6
	7	BOOT:
	8	INSTALL_SIMPLE_READER(Method, name);
	9	INSTALL_SIMPLE_READER(Method, package_name);
	10	INSTALL_SIMPLE_READER(Method, body);
213c00cc	11
	12	bool
	13	is_stub(self)
	14	SV *self
	15
	16	PREINIT:
	17	CV const body = (CV )SvRV( HeVAL( hv_fetch_ent((HV *)SvRV(self), KEY_FOR(body), 0, HASH_FOR(body)) ) );
	18
	19	CODE:
	20	RETVAL = !( CvISXSUB(body) \|\| CvROOT(body) );
	21
	22	OUTPUT:
	23	RETVAL