diff options
author | Karl Williamson <khw@cpan.org> | 2022-05-11 10:59:56 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-05-18 04:35:55 -0600 |
commit | 83d56587f32f4600970eab2a95c3060f32b003d2 (patch) | |
tree | 95e9f04e3d6771ee3f1e08cc382193b722f7b6ff | |
parent | 821a824b05274c1702a020c757a2fb9d81f6a44a (diff) | |
download | perl-83d56587f32f4600970eab2a95c3060f32b003d2.tar.gz |
perlapi: Document mro_get_from_name, mro_set_mro
-rw-r--r-- | embed.fnc | 4 | ||||
-rw-r--r-- | mro_core.c | 20 |
2 files changed, 22 insertions, 2 deletions
@@ -3633,9 +3633,9 @@ Coph |SV* |mro_get_private_data|NN struct mro_meta *const smeta \ Aopdh |SV* |mro_set_private_data|NN struct mro_meta *const smeta \ |NN const struct mro_alg *const which \ |NN SV *const data -Aop |const struct mro_alg *|mro_get_from_name|NN SV *name +Aopd |const struct mro_alg *|mro_get_from_name|NN SV *name Aopd |void |mro_register |NN const struct mro_alg *mro -Aop |void |mro_set_mro |NN struct mro_meta *const meta \ +Aopd |void |mro_set_mro |NN struct mro_meta *const meta \ |NN SV *const name : Used in HvMROMETA(), which is public. Xpo |struct mro_meta* |mro_meta_init |NN HV* stash diff --git a/mro_core.c b/mro_core.c index 85c40db2b5..42a11af035 100644 --- a/mro_core.c +++ b/mro_core.c @@ -102,6 +102,15 @@ Perl_mro_set_private_data(pTHX_ struct mro_meta *const smeta, return data; } +/* +=for apidoc mro_get_from_name + +Returns the previously registered mro with the given C<name>, or NULL if not +registered. See L</C<mro_register>>. + +=cut +*/ + const struct mro_alg * Perl_mro_get_from_name(pTHX_ SV *name) { SV **data; @@ -1369,6 +1378,17 @@ Perl_mro_method_changed_in(pTHX_ HV *stash) HvAUX(stash)->xhv_aux_flags &= ~HvAUXf_NO_DEREF; } +/* +=for apidoc mro_set_mro + +Set C<meta> to the value contained in the registered mro plugin whose name is +C<name>. + +Croaks if C<name> hasn't been registered + +=cut +*/ + void Perl_mro_set_mro(pTHX_ struct mro_meta *const meta, SV *const name) { |