From: Yuval Kogman Date: Wed, 20 Aug 2008 13:37:14 +0000 (+0000) Subject: prototyping behavior X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4e783f63cf8e573028a467c435e71ad18ba99b82;p=gitmo%2FMoose.git prototyping behavior --- diff --git a/Moose.xs b/Moose.xs index 6babd6e..6bcb2d3 100644 --- a/Moose.xs +++ b/Moose.xs @@ -1186,12 +1186,14 @@ STATIC XSPROTO ((*xs_bodies[])) = { }; MODULE = Moose PACKAGE = Moose::XS +PROTOTYPES: ENABLE CV * new_sub(attr, name) INPUT: SV *attr; SV *name; + PROTOTYPE: $;$ ALIAS: new_reader = xs_body_reader new_writer = xs_body_writer @@ -1223,6 +1225,7 @@ new_sub(attr, name) MODULE = Moose PACKAGE = Moose::XS::Meta::Instance +PROTOTYPES: DISABLE void DESTROY(self)