view release on metacpan or  search on metacpan

Spread.pm  view on Meta::CPAN

Apache::Log::Spread is deigned to be extended to provide custom format string expansions.  To extend it in ithis fashion, simply override the _interpolate_log_string function.

An example is

=over 4

package My::SpreadLogger;
use strict;

use Apache::Logger::Spread;
use My::Cookies;

use vars qw( @ISA);
@ISA = qw(Logger::Spread);

sub handler($$)
{
    my $self = shift;
    my $ar = shift;
    Apache::Log::Spread::handler($self, $ar);
}

sub _interpolate_log_string {
    my ($self, $logref) = @_;
    my $cookie = My::Cookie->new();
    $$logref =~ s/%\{([\w-]+)\}cookie/$cookie->{$1} || '-'/ego;
}

=back


=head1 AUTHOR

George Schlossnagle <george@omniti.com>