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

#include "mop.h"

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

PROTOTYPES: DISABLE

# use prototype here to be compatible with get_code_info from Sub::Identify
void
get_code_info(coderef)
    SV *coderef
    PROTOTYPE: $
    PREINIT:
        char *pkg  = NULL;
        char *name = NULL;
    PPCODE:
        SvGETMAGIC(coderef);
        if (mop_get_code_info(coderef, &pkg, &name)) {
            EXTEND(SP, 2);
            mPUSHs(newSVpv(pkg, 0));
            mPUSHs(newSVpv(name, 0));
        }
Commit	Line	Data
38bf2a25	1	#include "mop.h"
38bf2a25	2
38bf2a25	3	MODULE = Class::MOP PACKAGE = Class::MOP
	4
	5	PROTOTYPES: DISABLE
	6
	7	# use prototype here to be compatible with get_code_info from Sub::Identify
	8	void
	9	get_code_info(coderef)
	10	SV *coderef
	11	PROTOTYPE: $
	12	PREINIT:
	13	char *pkg = NULL;
	14	char *name = NULL;
	15	PPCODE:
	16	SvGETMAGIC(coderef);
	17	if (mop_get_code_info(coderef, &pkg, &name)) {
	18	EXTEND(SP, 2);
	19	mPUSHs(newSVpv(pkg, 0));
	20	mPUSHs(newSVpv(name, 0));
	21	}