xs/MOP.xs

   1 #include "mop.h"
   2
   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         }