6 mop_deconstruct_variable_name(pTHX_ SV* const variable,
7 const char** const var_name, STRLEN* const var_name_len,
9 const char** const type_name) {
12 if(SvROK(variable) && SvTYPE(SvRV(variable)) == SVt_PVHV){
13 /* e.g. variable = { type => "SCALAR", name => "foo" } */
14 HV* const hv = (HV*)SvRV(variable);
19 svp = hv_fetchs(hv, "name", FALSE);
20 if(!(svp && SvOK(*svp))){
21 croak("You must pass a variable name");
23 *var_name = SvPV_const(*svp, len);
26 croak("You must pass a variable name");
29 svp = hv_fetchs(hv, "type", FALSE);
30 if(!(svp && SvOK(*svp))) {
31 croak("You must pass a variable type");
33 pv = SvPV_nolen_const(*svp);
34 if(strEQ(pv, "SCALAR")){
35 *type = SVt_PV; /* for all the type of scalars */
37 else if(strEQ(pv, "ARRAY")){
40 else if(strEQ(pv, "HASH")){
43 else if(strEQ(pv, "CODE")){
46 else if(strEQ(pv, "GLOB")){
49 else if(strEQ(pv, "IO")){
53 croak("I do not recognize that type '%s'", pv);
60 /* e.g. variable = '$foo' */
62 croak("You must pass a variable name");
64 pv = SvPV_const(variable, len);
66 croak("You must pass a variable name including a sigil");
70 *var_name_len = len - 1;
74 *type = SVt_PV; /* for all the types of scalars */
75 *type_name = "SCALAR";
94 croak("I do not recognize that sigil '%c'", pv[0]);
100 mop_get_gv(pTHX_ SV* const self, svtype const type, const char* const var_name, I32 const var_name_len, I32 const flags){
103 if(!(flags & ~GV_NOADD_MASK)){ /* for shortcut fetching */
104 SV* const ns = mop_call0(aTHX_ self, mop_namespace);
106 if(!(SvROK(ns) && SvTYPE(SvRV(ns)) == SVt_PVHV)){
107 croak("namespace() did not return a hash reference");
109 gvp = (GV**)hv_fetch((HV*)SvRV(ns), var_name, var_name_len, FALSE);
110 if(gvp && isGV_with_GP(*gvp)){
115 package_name = mop_call0(aTHX_ self, KEY_FOR(name));
117 if(!SvOK(package_name)){
118 croak("name() did not return a defined value");
121 return gv_fetchpv(Perl_form(aTHX_ "%"SVf"::%s", package_name, var_name), flags, type);
125 mop_gv_elem(pTHX_ GV* const gv, svtype const type, I32 const add){
132 assert(isGV_with_GP(gv));
136 sv = (SV*)(add ? GvAVn(gv) : GvAV(gv));
139 sv = (SV*)(add ? GvHVn(gv) : GvHV(gv));
145 sv = (SV*)(add ? GvIOn(gv) : GvIO(gv));
150 default: /* SCALAR */
151 sv = add ? GvSVn(gv) : GvSV(gv);
159 MODULE = Class::MOP::Package PACKAGE = Class::MOP::Package
164 get_all_package_symbols(self, filter=TYPE_FILTER_NONE)
172 if ( ! SvROK(self) ) {
173 die("Cannot call get_all_package_symbols as a class method");
176 if (GIMME_V == G_VOID) {
182 if ( (he = hv_fetch_ent((HV *)SvRV(self), KEY_FOR(package), 0, HASH_FOR(package))) ) {
183 stash = gv_stashsv(HeVAL(he), 0);
191 symbols = mop_get_all_package_symbols(stash, filter);
192 PUSHs(sv_2mortal(newRV_noinc((SV *)symbols)));
195 INSTALL_SIMPLE_READER_WITH_KEY(Package, name, package);
199 add_package_symbol(SV* self, SV* variable, SV* ref = &PL_sv_undef)
202 const char* type_name;
203 const char* var_name;
207 mop_deconstruct_variable_name(aTHX_ variable, &var_name, &var_name_len, &type, &type_name);
208 gv = mop_get_gv(aTHX_ self, type, var_name, var_name_len, GV_ADDMULTI);
210 if(SvOK(ref)){ /* add_package_symbol with a value */
213 ref = newRV_noinc(newSVsv(ref));
217 else if(!(SvROK(ref) && SvTYPE(SvRV(ref)) == type)){
218 croak("You must pass a reference of %s for the value of %s", type_name, GvNAME(CvGV(cv)));
221 if(type == SVt_PVCV && GvCV(gv)){
222 /* XXX: clear it before redefinition */
223 SvREFCNT_dec(GvCV(gv));
226 sv_setsv_mg((SV*)gv, ref); /* magical assignment into type glob (*glob = $ref) */
228 if(type == SVt_PVCV){ /* name a subroutine */
229 CV* const subr = (CV*)SvRV(ref);
233 && strEQ(GvNAME(CvGV(subr)), "__ANON__")){
240 SvREFCNT_inc_simple_void_NN(ref);
243 SV* const sv = mop_gv_elem(aTHX_ gv, type, GV_ADDMULTI);
244 RETVAL = (sv && GIMME_V != G_VOID) ? newRV_inc(sv) : &PL_sv_undef;
250 has_package_symbol(SV* self, SV* variable)
253 const char* type_name;
254 const char* var_name;
258 mop_deconstruct_variable_name(aTHX_ variable, &var_name, &var_name_len, &type, &type_name);
259 gv = mop_get_gv(aTHX_ self, type, var_name, var_name_len, 0);
260 RETVAL = mop_gv_elem(aTHX_ gv, type, FALSE) ? TRUE : FALSE;
265 get_package_symbol(SV* self, SV* variable, ...)
268 const char* type_name;
269 const char* var_name;
275 { /* parse options */
277 if((items % 2) != 0){
278 croak("Odd number of arguments for get_package_symbol()");
280 for(i = 2; i < items; i += 2){
281 SV* const opt = ST(i);
282 SV* const val = ST(i+1);
283 if(strEQ(SvPV_nolen_const(opt), "create")){
285 flags |= GV_ADDMULTI;
288 flags &= ~GV_ADDMULTI;
292 warn("Unknown option \"%"SVf"\" for get_package_symbol()", opt);
296 mop_deconstruct_variable_name(aTHX_ variable, &var_name, &var_name_len, &type, &type_name);
297 gv = mop_get_gv(aTHX_ self, type, var_name, var_name_len, flags);
298 sv = mop_gv_elem(aTHX_ gv, type, FALSE);
300 RETVAL = sv ? newRV_inc(sv) : &PL_sv_undef;