Yet Another CPAN Grep

WebService-LogDNA ( R/RM/RMZG/WebService-LogDNA-0.001.tar.gz, RMZG, 2019; MetaCPAN )

WebService-LogDNA/lib/WebService/LogDNA.pm ( view source; MetaCPAN )

ation_basic($self->key, "");
	$headers->content_type('application/json; charset=UTF-8');

	my $content = '{"lines":[' . $body->to_json . ']}';

	my $request = HTTP::Request->new( "POST", $url, $header

WebService-LogDNA ( R/RM/RMZG/WebService-LogDNA-0.001.tar.gz, RMZG, 2019; MetaCPAN )

WebService-LogDNA/lib/WebService/LogDNA/Body.pm ( view source; MetaCPAN )

e WebService::LogDNA::Body;

use strict;
use warnings;

use Moo;
use Time::HiRes;
use JSON::MaybeXS qw/encode_json/;

has 'line' => ( 
	is => 'ro', 
	required => 1,
	isa => sub {
		die "Requires a lin

 int(Time::HiRes::time() * 1000) }
);
has 'meta' => ( is => 'ro' );


sub to_json {
	my( $self ) =  @_;

	return encode_json({
		line => $self->line,
		level => $self->level,
		env => $self->env,
		ti