xs/Package.xs

   1 #include "mop.h"
   2
   3 MODULE = Class::MOP::Package   PACKAGE = Class::MOP::Package
   4
   5 PROTOTYPES: DISABLE
   6
   7 void
   8 get_all_package_symbols(self, filter=TYPE_FILTER_NONE)
   9     SV *self
  10     type_filter_t filter
  11     PREINIT:
  12         HV *stash = NULL;
  13         HV *symbols = NULL;
  14         register HE *he;
  15     PPCODE:
  16         if ( ! SvROK(self) ) {
  17             die("Cannot call get_all_package_symbols as a class method");
  18         }
  19
  20         if (GIMME_V == G_VOID) {
  21             XSRETURN_EMPTY;
  22         }
  23
  24         PUTBACK;
  25
  26         if ( (he = hv_fetch_ent((HV *)SvRV(self), KEY_FOR(package), 0, HASH_FOR(package))) ) {
  27             stash = gv_stashsv(HeVAL(he), 0);
  28         }
  29
  30
  31         if (!stash) {
  32             XSRETURN_UNDEF;
  33         }
  34
  35         symbols = mop_get_all_package_symbols(stash, filter);
  36         PUSHs(sv_2mortal(newRV_noinc((SV *)symbols)));
  37
  38 BOOT:
  39     INSTALL_SIMPLE_READER_WITH_KEY(Package, name, package);