File Coverage

lib/WebService/LogDNA/Body.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	23	24	95.8

package 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 line" unless $_[0] =~ /\S/;
	}
);
has 'level' => ( is => 'ro', required => 1 );
has 'env' => ( is => 'ro', required => 1 );
has 'timestamp' => (
	is => 'ro',
	default => sub { 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,
		timestamp => $self->timestamp,
		meta => $self->meta,
	});
}

1;

__END__