Clear questions and runnable code
get the best and fastest answer
Re Class::MOP::Method::Wrapped: Out of curiosity, does it gather all the before/after/around stuff into one thoughtful list, or does it just keep chaining things with more single-use wrappers?
No, the Class::MOP::Method::Wrapped object keeps 3 ordered lists, one of befores, one of arounds and one of afters and it makes sure to apply them in the order you defined them. The docs actually go into a lot of detail about how this works.
And I was wondering... how does an 'after' method get called without having the wrapper show up in the call stack?
It does show up actually, they are named ":before", ":around" and ":after", here is a comment from the source explaining some of this:
If the original is chained to with a GOTO, it won't get control back again.
It isn't done with GOTO actually, for exactly that reason, it is all quite controlled. If you look at the source you will see the $_build_wrapped_method method which does much of the dirty work.
o, the method enumerator does the same thing as autoclean, ...
Yes, but the method enumerator did it long before autoclean existed and way before autoclean was stable/sane.
Let me see if I'm following... for code that's been generated or otherwise not created using the classic 'sub' at package level, it won't record that origin and would always look like it was imported, even for generated methods like the accessors. So what that passage was trying to say is that a fully-quallified name in the Sub::Name or the natural origin of the function is used to determine if it was imported. Right?
Yes, but Sub::Name alters the internal (C-level) structure of the CV data structure to basically add the fully-qualified name. It then appears just as if it was originally defined in that package.
You talk about "B" and "stash" and other things not in my namespace, ...
B is the "The Perl Compiler Backend", it is a way to access all the C-level data structures from Perl. The "stash" is the name for an element of those data structures, specifically the place where I go to find the actual fully-qualified name of the sub.
... which makes me think now that the determination of the natural born name was not something it was originally meant to do.
Right, we had to get all sneaky and use XS to get at this stuff, it is not normally exposed in Perl.
So Sub::Name is a newer thing and Carp et al. were updated to look at it, but defining a sub still doesn't populate that itself?
No, Sub::Name alters the underly C-level structure such that when Carp gets to it,... it is just there. No changes had to be made to other modules.