Re: CHECK and INIT under mod_perl

[perrin]

It's pretty unusual to actually need a CHECK or INIT, so this doesn't come up a lot on the mod_perl list, but I would guess that you could replace it with a sub called during a phase like PerlChildInitHandler. You can make your BEGIN block register this handler automatically if $ENV{'MOD_PERL'} is true.

[dragonchild]

So, if I understand you correctly, you recommend the following:

package Floober;

sub do_at_init {
    # Does something nifty
}

INIT { do_at_init(); }

BEGIN {
    if ( $ENV{ 'MOD_PERL' } ) {
        #####
        # What do I put here?
        #####
    }
}

1;

[perrin]

Depending on when you need it to run, you could do something like this:

Apache->push_handlers("PerlInitHandler", \&do_at_init);

[dragonchild]

Is there an authoritative recipe available that would cover both running under MP1 and MP2, as well as a basic test harness? stvn and I have run into this with Class::LazyLoad and I know Ovid and liz have also run into problems with this ...