namespace(SV* self)
CODE:
{
- SV* const package = get_slot(aTHX_ self, mouse_package);
+ SV* const package = get_slot(self, mouse_package);
if(!(package && SvOK(package))){
croak("No package name defined");
}
add_method(SV* self, SV* name, SV* code, ...)
CODE:
{
- SV* const package = get_slot(aTHX_ self, mouse_package); /* $self->{package} */
- SV* const methods = get_slot(aTHX_ self, mouse_methods); /* $self->{methods} */
+ SV* const package = get_slot(self, mouse_package); /* $self->{package} */
+ SV* const methods = get_slot(self, mouse_methods); /* $self->{methods} */
GV* gv;
SV* code_ref;
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);
-
-