Yet Another CPAN Grep

Log-GELF-Util ( A/AD/ADAMC/Log-GELF-Util-1.03.tar.gz, ADAMC, 2024; MetaCPAN )

Log-GELF-Util/lib/Log/GELF/Util.pm ( view source; MetaCPAN )

;
use Time::HiRes qw(time);
use Sys::Syslog qw(:macros);
use Sys::Hostname;
use JSON::MaybeXS qw(encode_json decode_json);
use IO::Compress::Gzip qw(gzip $GzipError);
use IO::Uncompress::Gunzip qw(gun

n encode_json(validate_message(@p));
}

sub decode {
    my @p = validate_pos(
        @_,
        { type => SCALAR },
    );

    my $msg = shift @p;

    return validate_message(decode_json($msg));

age will be
validated with L</validate_message>.

Returns a JSON encoded string representing the message.

=head2 decode( $ )

Accepts a JSON encoded string representing the message. This will be
conv