X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=mouse.h;h=bfb7836c36078cea72d21f64263363413b055689;hp=01518fda6486091fb0c82a52a94c21e1bf252da0;hb=d06d926635763fa5687c429b5ad39938c564fbed;hpb=d39ac61c301d8857e33e6077252e461654d8a37f diff --git a/mouse.h b/mouse.h index 01518fd..bfb7836 100644 --- a/mouse.h +++ b/mouse.h @@ -101,6 +101,13 @@ GV* mouse_stash_fetch(pTHX_ HV* const stash, const char* const name, I32 const n #define stash_fetch(s, n, l, c) mouse_stash_fetch(aTHX_ (s), (n), (l), (c)) #define stash_fetchs(s, n, c) mouse_stash_fetch(aTHX_ (s), STR_WITH_LEN(n), (c)) +void mouse_install_sub(pTHX_ GV* const gv, SV* const code_ref); + +void mouse_must_defined(pTHX_ SV* const value, const char* const name); +void mouse_must_ref(pTHX_ SV* const value, const char* const name, svtype const t); + +#define must_defined(sv, name) mouse_must_defined(aTHX_ sv, name) +#define must_ref(sv, name, svt) mouse_must_ref(aTHX_ sv, name, svt) #define MOUSEf_DIE_ON_FAIL 0x01 MAGIC* mouse_mg_find(pTHX_ SV* const sv, const MGVTBL* const vtbl, I32 const flags);