Help for this page

Select Code to Download

Select or download this

    for my $var (  qw( Driver Prefix Trace Debug Confess
                       Caller Priorities Tags DATUM )  ) {
        no strict 'refs';
        *{$var}= \${"Log::Agent::$var"};
    }
    *prio_cache= \%Log::Agent::prio_cache;

Select or download this

# import _all_ that Log::Agent exports:
use Log::Agent qw( /./ );

...
    Log::Agent::logcarp( @_ );
    # postprocess stuff
}