8 #define NEED_newRV_noinc
9 #define NEED_sv_2pv_flags
10 #define NEED_sv_2pv_nolen
13 #define MOP_CALL_BOOT(name) \
16 mop_call_xs(aTHX_ name, cv, mark); \
19 void mop_call_xs (pTHX_ void (*subaddr) (pTHX_ CV *), CV *cv, SV **mark);
21 #define DECLARE_KEY(name) { #name, #name, NULL, 0 }
22 #define DECLARE_KEY_WITH_VALUE(name, value) { #name, value, NULL, 0 }
29 KEY_package_cache_flag,
34 } mop_prehashed_key_t;
36 #define KEY_FOR(name) mop_prehashed_key_for(KEY_ ##name)
37 #define HASH_FOR(name) mop_prehashed_hash_for(KEY_ ##name)
39 void mop_prehash_keys (void);
40 inline SV *mop_prehashed_key_for (mop_prehashed_key_t key);
41 inline U32 mop_prehashed_hash_for (mop_prehashed_key_t key);
43 #define INSTALL_SIMPLE_READER(klass, name) \
45 CV *cv = newXS("Class::MOP::" #klass "::" #name, mop_xs_simple_reader, __FILE__); \
46 CvXSUBANY(cv).any_i32 = KEY_ ##name; \
49 #define INSTALL_SIMPLE_READER_WITH_KEY(klass, name, key) \
51 CV *cv = newXS("Class::MOP::" #klass "::" #name, mop_xs_simple_reader, __FILE__); \
52 CvXSUBANY(cv).any_i32 = KEY_ ##key; \
55 XS(mop_xs_simple_reader);
57 extern SV *mop_method_metaclass;
58 extern SV *mop_associated_metaclass;
61 UV mop_check_package_cache_flag(pTHX_ HV *stash);
62 int mop_get_code_info (SV *coderef, char **pkg, char **name);
63 SV *mop_call0(pTHX_ SV *const self, SV *const method);
74 typedef bool (*get_package_symbols_cb_t) (const char *, STRLEN, SV *, void *);
76 void mop_get_package_symbols(HV *stash, type_filter_t filter, get_package_symbols_cb_t cb, void *ud);
77 HV *mop_get_all_package_symbols (HV *stash, type_filter_t filter);