X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mouse.h;h=e8ce99908354698ffe7b260e7e283d2cf307d5ec;hb=master;hp=0ce6916a3efed951d5a6fe2fe22606a83df161fb;hpb=fad99075beae804374b22c9e356f90daf23bbc05;p=gitmo%2FMouse.git diff --git a/mouse.h b/mouse.h index 0ce6916..e8ce999 100644 --- a/mouse.h +++ b/mouse.h @@ -1,6 +1,8 @@ #ifndef MOUSE_H #define MOUSE_H +#define PERL_EUPXS_ALWAYS_EXPORT + #include "xshelper.h" #ifndef mro_get_linear_isa @@ -18,8 +20,11 @@ AV* mouse_mro_get_linear_isa(pTHX_ HV* const stash); #endif /* !no_mro_get_linear_isa */ #endif /* mro_get_package_gen */ +#ifndef GvCV_set +#define GvCV_set(gv, cv) (GvCV(gv) = (cv)) +#endif + extern SV* mouse_package; -extern SV* mouse_namespace; extern SV* mouse_methods; extern SV* mouse_name; extern SV* mouse_coerce; @@ -192,8 +197,6 @@ CV* mouse_generate_can_predicate_for(pTHX_ SV* const klass, const char* const pr int mouse_is_an_instance_of(pTHX_ HV* const stash, SV* const instance); -XS(XS_Mouse_constraint_check); - /* Mouse XS Attribute object */ AV* mouse_get_xa(pTHX_ SV* const attr); @@ -244,6 +247,7 @@ enum mouse_xa_flags_t{ MOUSEf_MOUSE_MASK = 0xFFFF /* not used */ }; - +/* Mouse::Meta::Class stuff */ +HV* mouse_get_namespace(pTHX_ SV* const meta); /* $meta->namespace */ #endif /* !MOUSE_H */