Steve, please direct these questions to the mod_perl list which I have cc'd. You're much more likely to get an answer from any one of the thousands of experienced users on this list than emailing any of the posters directly.
On Tue, Mar 13, 2012 at 1:18 PM, Steven Lembark <lemb...@wrkhors.com> wrote: > > Say I have a mod_perl2 handler that does nothing more > than pass off its request object to another sub. The > sub gets a few things out of $request->args and the > headers, proceses its result, and life is good. > > 99% of the work inside the handler has nothing whatever > to do with mod_perl. > > I would like to run: > > perl -d submit_a_fake_request; > > and watch the request get handled. > > I think that PerlTest or PerlTestRun might offer some > way to do this but, but the POD includes only: > > My::TestRun->new->run(@ARGV); > > and I have no idea what to pass in as @ARGV. > > Note that I am not trying to debug Apache itself, > just the code that lives below the handler sub. Nor > am I writing tests for the most part, I just need > to see the code in "perl -d" to find out some things > about what is going on inside the code. > > If this were mod_perl with an HTTP::Request object > I could take an old $r->as_string, strip the method > and uri, split the headers on newlines, extract the > query and construct a new HTTP::Request object. I > am trying to duplicate this procedure in Apache2. > > I'll be happy to hand back POD for the PerlTestRun > that shows someone how to assemble a working Apache2 > request out of as_string output in order to run a > test. But several days of stumbling through google and > mod_perl archives leave me with no examples that don't > already assume that someone knows all of the appropriate > arguments and methods to call for setting up an object. > > Any help would be appreciated. > > -- > Steven Lembark 3646 Flora Pl > Workhorse Computing St Louis, MO 63110 > lemb...@wrkhors.com +1 888 359 3508