in reply to Please share your advice about my mod_perl program
You aren't really using Exporter here. I think you should. Put in a line like this in PBB::Packages::MyConfigTest:
And then call it from PBB::ControllerTest like this:our @EXPORT_OK = qw(%stash);
Then you can get rid of the line with the *stash typeglob and the use vars qw(%stash) line. I suggest you put your use strict in PBB::ControllerTest right after the package declaration and add a use warnings.use PBB::Packages::MyConfigTest qw(%stash);
Don't make $q and $t global variables. You're only using them in your handler() sub, so just declar them there as lexical (my) variables.
In general, you should be using our instead of use vars these days.
When I talked to you on use.perl.org, it sounded like you didn't want those file names added to the end of your array ref. What you're showing here though looks like you're trying to append two entries to the end of this array reference, which is best done with a push, like you had before.
|
|---|