xs-src/Mouse.xs

   1 #include "mouse.h"
   2
   3 MODULE = Mouse  PACKAGE = Mouse::Util
   4
   5 PROTOTYPES: DISABLE
   6
   7 bool
   8 is_class_loaded(SV* sv = &PL_sv_undef)
   9
  10 void
  11 get_code_info(CV* code)
  12 PREINIT:
  13     GV* gv;
  14     HV* stash;
  15 PPCODE:
  16     if((gv = CvGV(code)) && isGV(gv) && (stash = GvSTASH(gv))){
  17         EXTEND(SP, 2);
  18         mPUSHs(newSVpvn_share(HvNAME_get(stash), HvNAMELEN_get(stash), 0U));
  19         mPUSHs(newSVpvn_share(GvNAME_get(gv), GvNAMELEN_get(gv), 0U));
  20     }
  21
  22 SV*
  23 get_code_package(CV* code)
  24 PREINIT:
  25     HV* stash;
  26 CODE:
  27     if(CvGV(code) && isGV(CvGV(code)) && (stash = GvSTASH(CvGV(code)))){
  28         RETVAL = newSVpvn_share(HvNAME_get(stash), HvNAMELEN_get(stash), 0U);
  29     }
  30     else{
  31         RETVAL = &PL_sv_no;
  32     }
  33 OUTPUT:
  34     RETVAL
  35
  36 MODULE = Mouse  PACKAGE = Mouse::Meta::Module
  37
  38 BOOT:
  39     INSTALL_SIMPLE_READER_WITH_KEY(Module, name, package);
  40     INSTALL_SIMPLE_READER_WITH_KEY(Module, _method_map, methods);
  41     INSTALL_SIMPLE_READER_WITH_KEY(Module, _attribute_map, attributes);
  42
  43 HV*
  44 namespace(HV* self)
  45 CODE:
  46 {
  47     SV** svp = hv_fetchs(self, "package", FALSE);
  48     if(!(svp && SvOK(*svp))){
  49         croak("No package name");
  50     }
  51     RETVAL = gv_stashsv(*svp, GV_ADDMULTI);
  52 }
  53 OUTPUT:
  54     RETVAL
  55
  56 MODULE = Mouse  PACKAGE = Mouse::Meta::Class
  57
  58 BOOT:
  59     INSTALL_SIMPLE_READER(Class, roles);
  60     INSTALL_SIMPLE_PREDICATE_WITH_KEY(Class, is_anon_class, anon_serial_id);
  61
  62 MODULE = Mouse  PACKAGE = Mouse::Meta::Role
  63
  64 BOOT:
  65     INSTALL_SIMPLE_READER_WITH_KEY(Role, get_roles, roles);
  66     INSTALL_SIMPLE_PREDICATE_WITH_KEY(Role, is_anon_role, anon_serial_id);
  67
  68
  69 MODULE = Mouse  PACKAGE = Mouse::Meta::Attribute
  70
  71 BOOT:
  72     /* readers */
  73     INSTALL_SIMPLE_READER(Attribute, name);
  74     INSTALL_SIMPLE_READER(Attribute, associated_class);
  75     INSTALL_SIMPLE_READER(Attribute, accessor);
  76     INSTALL_SIMPLE_READER(Attribute, reader);
  77     INSTALL_SIMPLE_READER(Attribute, writer);
  78     INSTALL_SIMPLE_READER(Attribute, predicate);
  79     INSTALL_SIMPLE_READER(Attribute, clearer);
  80     INSTALL_SIMPLE_READER(Attribute, handles);
  81
  82     INSTALL_SIMPLE_READER_WITH_KEY(Attribute, _is_metadata, is);
  83     INSTALL_SIMPLE_READER_WITH_KEY(Attribute, is_required, required);
  84     INSTALL_SIMPLE_READER(Attribute, default);
  85     INSTALL_SIMPLE_READER_WITH_KEY(Attribute, is_lazy, lazy);
  86     INSTALL_SIMPLE_READER_WITH_KEY(Attribute, is_lazy_build, lazy_build);
  87     INSTALL_SIMPLE_READER_WITH_KEY(Attribute, is_weak_ref, weak_ref);
  88     INSTALL_SIMPLE_READER(Attribute, init_arg);
  89     INSTALL_SIMPLE_READER(Attribute, type_constraint);
  90     INSTALL_SIMPLE_READER(Attribute, trigger);
  91     INSTALL_SIMPLE_READER(Attribute, builder);
  92     INSTALL_SIMPLE_READER_WITH_KEY(Attribute, should_auto_deref, auto_deref);
  93     INSTALL_SIMPLE_READER_WITH_KEY(Attribute, should_coerce, coerce);
  94     INSTALL_SIMPLE_READER(Attribute, documentation);
  95
  96     /* predicates */
  97     INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_accessor, accessor);
  98     INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_reader, reader);
  99     INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_writer, writer);
 100     INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_predicate, predicate);
 101     INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_clearer, clearer);
 102     INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_handles, handles);
 103
 104     INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_default, default);
 105     INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_type_constraint, type_constraint);
 106     INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_trigger, trigger);
 107     INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_builder, builder);
 108     INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_documentation, documentation);
 109
 110 MODULE = Mouse  PACKAGE = Mouse::Meta::TypeConstraint
 111
 112 BOOT:
 113     INSTALL_SIMPLE_READER(TypeConstraint, name);
 114     INSTALL_SIMPLE_READER(TypeConstraint, parent);
 115     INSTALL_SIMPLE_READER(TypeConstraint, message);
 116
 117     INSTALL_SIMPLE_READER_WITH_KEY(TypeConstraint, _compiled_type_constraint, compiled_type_constraint);
 118     INSTALL_SIMPLE_READER(TypeConstraint, _compiled_type_coercion); /* Mouse specific */
 119
 120     INSTALL_SIMPLE_PREDICATE_WITH_KEY(TypeConstraint, has_coercion, _compiled_type_coercion);
 121