Yet Another CPAN Grep

Log-Log4perl-Appender-Elasticsearch ( P/PA/PALIK/Log-Log4perl-Appender-Elasticsearch-0.09.tar.gz, PALIK, 2017; MetaCPAN )

Log-Log4perl-Appender-Elasticsearch/lib/Log/Log4perl/Appender/Elasticsearch.pm ( view source; MetaCPAN )


our @ISA = qw(Log::Log4perl::Appender);

use Carp;
use HTTP::Headers();
use HTTP::Request();
use JSON;
use LWP::UserAgent();
use Log::Log4perl;
use MIME::Base64;
use URI;

=head1 NAME

Log::Log4perl:

_type};
} ## end sub type

sub log {
    my ($self, %p) = @_;
    $self->_send_request($self->_to_json($self->_prepare_body(%p)));
}

sub _init {
    my ($self, %p) = @_;

    defined($p{nodes})

, $uri) = @_;
    my $h = $self->{_headers}->clone;
    $h->header('Content-Type' => 'application/json');

    my $ui = $uri->userinfo;
    if ($ui) {
        my $auth = MIME::Base64::encode_base64($u

Log-Log4perl-Appender-Elasticsearch ( P/PA/PALIK/Log-Log4perl-Appender-Elasticsearch-0.09.tar.gz, PALIK, 2017; MetaCPAN )

Log-Log4perl-Appender-Elasticsearch/lib/Log/Log4perl/Appender/Elasticsearch/Bulk.pm ( view source; MetaCPAN )

$buff}) || return;

    foreach (@{$buff}) {
        $data .= join $/, '{"index":{}}', $self->_to_json($_), '';
    }

    if (_INTERNAL_DEBUG) {
        require Data::Dumper;
        print Data::Dump