From: gfx Date: Tue, 3 Nov 2009 01:56:34 +0000 (+0900) Subject: Move XS Meta::Constraint stuff to the correct place X-Git-Tag: 0.40_06~44 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=a4b901ac53a9eb592740cd6fb20a136e142671db Move XS Meta::Constraint stuff to the correct place --- diff --git a/xs-src/Mouse.xs b/xs-src/Mouse.xs index 7391db0..e4f8a34 100644 --- a/xs-src/Mouse.xs +++ b/xs-src/Mouse.xs @@ -171,16 +171,3 @@ BOOT: newCONSTSUB(gv_stashpvs("Mouse::Meta::Attribute", TRUE), "accessor_metaclass", newSVpvs("Mouse::Meta::Method::Accessor::XS")); -MODULE = Mouse PACKAGE = Mouse::Meta::TypeConstraint - -BOOT: - INSTALL_SIMPLE_READER(TypeConstraint, name); - INSTALL_SIMPLE_READER(TypeConstraint, parent); - INSTALL_SIMPLE_READER(TypeConstraint, message); - - INSTALL_SIMPLE_READER_WITH_KEY(TypeConstraint, _compiled_type_constraint, compiled_type_constraint); - INSTALL_SIMPLE_READER(TypeConstraint, _compiled_type_coercion); /* Mouse specific */ - - INSTALL_SIMPLE_PREDICATE_WITH_KEY(TypeConstraint, has_coercion, _compiled_type_coercion); - - diff --git a/xs-src/MouseTypeConstraints.xs b/xs-src/MouseTypeConstraints.xs index 225e1fe..b88ba95 100644 --- a/xs-src/MouseTypeConstraints.xs +++ b/xs-src/MouseTypeConstraints.xs @@ -567,6 +567,16 @@ OUTPUT: MODULE = Mouse::Util::TypeConstraints PACKAGE = Mouse::Meta::TypeConstraint +BOOT: + INSTALL_SIMPLE_READER(TypeConstraint, name); + INSTALL_SIMPLE_READER(TypeConstraint, parent); + INSTALL_SIMPLE_READER(TypeConstraint, message); + + INSTALL_SIMPLE_READER_WITH_KEY(TypeConstraint, _compiled_type_constraint, compiled_type_constraint); + INSTALL_SIMPLE_READER(TypeConstraint, _compiled_type_coercion); /* Mouse specific */ + + INSTALL_SIMPLE_PREDICATE_WITH_KEY(TypeConstraint, has_coercion, _compiled_type_coercion); + void compile_type_constraint(SV* self) CODE: