view release on metacpan or  search on metacpan

lib/Apache/DebugLog/Config.pm  view on Meta::CPAN

#    Apache2::Module::add('Apache2::DebugLog', \@DIRECTIVES) 
#        if ($mod_perl2::VERSION);

#BEGIN {
#    Carp::croak(__PACKAGE__ . "loaded without call to import().") 
#        if ($mod_perl2::VERSION && $ENV{MOD_PERL} && !$IMPORT_GOT_RUN);
#}

sub import {
    Apache2::Module::add((caller)[0], \@DIRECTIVES) 
        if ($mod_perl2::VERSION && $ENV{MOD_PERL});
    $IMPORT_GOT_RUN++;
}

sub _set_loglevel {
    my ($cfg, $parms, $level) = @_;
    $cfg->{level} = $level;
    unless ($parms->path) {
        my $scfg = Apache2::Module::get_config($cfg, $parms->server);
        $scfg->{level} = $level;