Commit | Line | Data |
df6dd016 |
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 | |
43165725 |
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 | |
2591e962 |
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 | |
43165725 |
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 | |