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 | |
43 | MODULE = Mouse PACKAGE = Mouse::Meta::Class |
44 | |
45 | BOOT: |
46 | INSTALL_SIMPLE_READER(Class, roles); |
47 | INSTALL_SIMPLE_PREDICATE_WITH_KEY(Class, is_anon_class, anon_serial_id); |
48 | |
49 | MODULE = Mouse PACKAGE = Mouse::Meta::Role |
50 | |
51 | BOOT: |
52 | INSTALL_SIMPLE_READER_WITH_KEY(Role, get_roles, roles); |
53 | INSTALL_SIMPLE_PREDICATE_WITH_KEY(Role, is_anon_role, anon_serial_id); |
54 | |
55 | |
56 | MODULE = Mouse PACKAGE = Mouse::Meta::Attribute |
57 | |
58 | BOOT: |
59 | /* readers */ |
60 | INSTALL_SIMPLE_READER(Attribute, name); |
61 | INSTALL_SIMPLE_READER(Attribute, associated_class); |
62 | INSTALL_SIMPLE_READER(Attribute, accessor); |
63 | INSTALL_SIMPLE_READER(Attribute, reader); |
64 | INSTALL_SIMPLE_READER(Attribute, writer); |
65 | INSTALL_SIMPLE_READER(Attribute, predicate); |
66 | INSTALL_SIMPLE_READER(Attribute, clearer); |
67 | INSTALL_SIMPLE_READER(Attribute, handles); |
68 | |
69 | INSTALL_SIMPLE_READER_WITH_KEY(Attribute, _is_metadata, is); |
70 | INSTALL_SIMPLE_READER_WITH_KEY(Attribute, is_required, required); |
71 | INSTALL_SIMPLE_READER(Attribute, default); |
72 | INSTALL_SIMPLE_READER_WITH_KEY(Attribute, is_lazy, lazy); |
73 | INSTALL_SIMPLE_READER_WITH_KEY(Attribute, is_lazy_build, lazy_build); |
74 | INSTALL_SIMPLE_READER_WITH_KEY(Attribute, is_weak_ref, weak_ref); |
75 | INSTALL_SIMPLE_READER(Attribute, init_arg); |
76 | INSTALL_SIMPLE_READER(Attribute, type_constraint); |
77 | INSTALL_SIMPLE_READER(Attribute, trigger); |
78 | INSTALL_SIMPLE_READER(Attribute, builder); |
79 | INSTALL_SIMPLE_READER_WITH_KEY(Attribute, should_auto_deref, auto_deref); |
80 | INSTALL_SIMPLE_READER_WITH_KEY(Attribute, should_coerce, coerce); |
81 | INSTALL_SIMPLE_READER(Attribute, documentation); |
82 | |
83 | /* predicates */ |
84 | INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_accessor, accessor); |
85 | INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_reader, reader); |
86 | INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_writer, writer); |
87 | INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_predicate, predicate); |
88 | INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_clearer, clearer); |
89 | INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_handles, handles); |
90 | |
91 | INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_default, default); |
92 | INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_type_constraint, type_constraint); |
93 | INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_trigger, trigger); |
94 | INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_builder, builder); |
95 | INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_documentation, documentation); |
96 | |
97 | MODULE = Mouse PACKAGE = Mouse::Meta::TypeConstraint |
98 | |
99 | BOOT: |
100 | INSTALL_SIMPLE_READER(TypeConstraint, name); |
101 | INSTALL_SIMPLE_READER(TypeConstraint, parent); |
102 | INSTALL_SIMPLE_READER(TypeConstraint, message); |
103 | |
104 | INSTALL_SIMPLE_READER_WITH_KEY(TypeConstraint, _compiled_type_constraint, compiled_type_constraint); |
105 | INSTALL_SIMPLE_READER(TypeConstraint, _compiled_type_coercion); /* Mouse specific */ |
106 | |
107 | INSTALL_SIMPLE_PREDICATE_WITH_KEY(TypeConstraint, has_coercion, _compiled_type_coercion); |
108 | |