Yet Another CPAN Grep

Fluent-AgentLite ( T/TA/TAGOMORIS/Fluent-AgentLite-1.0.tar.gz, TAGOMORIS, 2013; MetaCPAN )

Fluent-AgentLite/lib/Fluent/AgentLite.pm ( view source; MetaCPAN )

fined $self->{output_format} and $self->{output_format} eq 'json') {
        *pack = *pack_json;
        *pack_drainlog = *pack_drainlog_json;
    }

    srand (time ^ $PID ^ unpack("%L*", `ps axww |

{tag}, $event_stream]);
}

sub pack_json {
    use JSON::XS qw/encode_json/;
    my ($self,$packer,$fieldname,$lines) = @_;
    my $t = time;
    return encode_json([$self->{tag}, [map { [$t, {$fieldn

lines}]);
}

sub pack_drainlog_json {
    use JSON::XS qw/encode_json/;
    my ($self,$packer,$drain_log_tag,$drain_lines) = @_;
    my $t = time;
    return encode_json([$drain_log_tag, $t, {'drain'