The code was not broken in several ways. It was broken in a single way; it referenced (caller)[1], the calling program name, rather than (caller)[0], the calling package name. As I said before, it was a mistype. I'm sorry to have caused you so much anger over it.
The pragmas do export lexically, this is correct. You are also correct in saying that my module doesn't import them into the current lexical scope. It imports them into the current package scope. However, based on inferences from the AM poster (and conversations that I had with his non-AM identity later), he wasn't interested in the lexical behaivor of strict. He was interested in binding several modules together in a single use statement, which is really only possible with Perl5 by using the technique above, short of XS. So, in this case, you are correct in that my solution is not perfect, but then there is no perfect solution to this scenerio.
As to whether the "use strict" and "use warnings" importation works, I *REALLY* suggest you try an example. Really. It does work. If you need help writing a test case, I can assist you.
I normally do test code, but I was in a meeting and didn't have time to. I only posted because I was sure of the solution, and that I had noticed almost a dozen incorrect or unhelpful posts in the thread. Unfortunately, I made a mistake in typing the solution, and so here we are.
In reply to Re: Re: Re: Re: Re: How do I make one package use a module from another package?
by jryan
in thread How do I make one package use a module from another package?
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |