view release on metacpan or  search on metacpan

lib/CGI/Builder/LogDispatch.pm  view on Meta::CPAN

    if ( $self->can('r') and $self->r->can('log') ) {
        require Log::Dispatch::ApacheLog;
        %defaults = (name=>'default', min_level=>'warning',apache=>$self->r);
        $logger->add(
            Log::Dispatch::ApacheLog->new( %defaults, %{$self->logger_config} )
        );
    } else {
        require Log::Dispatch::Screen;
        %defaults = ( name=>'default'
                    , min_level=>'warning'
                    , callbacks => sub { sprintf "[%s] %s\n", Date::Format::time2str('%Y-%m-%d %H:%M:%S',time), $_[1] }
                    );
        $logger->add(
            Log::Dispatch::Screen->new( %defaults, %{$self->logger_config} )
        );
    }
    return $logger;
}


1;