X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=mouse.h;h=e58d8ae5cd713507ef76a7648d7fe6094cc24f77;hp=f30029f2bce822622d35fe9675e2393c5de76b43;hb=d67f600df9deb0deb95616f617c1aca3fd78a2e3;hpb=ebe91068002fbe34a924a0a9e2cd79553867938c diff --git a/mouse.h b/mouse.h index f30029f..e58d8ae 100644 --- a/mouse.h +++ b/mouse.h @@ -60,6 +60,7 @@ extern SV* mouse_package; extern SV* mouse_namespace; extern SV* mouse_methods; extern SV* mouse_name; +extern SV* mouse_coerce; void mouse_throw_error(SV* const metaobject, SV* const data /* not used */, const char* const fmt, ...) @@ -100,6 +101,7 @@ 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); #define MOUSEf_DIE_ON_FAIL 0x01 MAGIC* mouse_mg_find(pTHX_ SV* const sv, const MGVTBL* const vtbl, I32 const flags);