Yet Another CPAN Grep

Log-JSON-Lines ( L/LN/LNATION/Log-JSON-Lines-1.01.tar.gz, LNATION, 2025; MetaCPAN )

Log-JSON-Lines/lib/Log/JSON/Lines.pm ( view source; MetaCPAN )

::JSON::Lines;
use 5.006; use strict; use warnings; our $VERSION = '1.01';
use JSON::Lines; use POSIX; use Time::HiRes;
use Fcntl qw/ :flock /; use Clone;

sub new {
	my ($class, $file, $level, %jsonl

_args) = @_;
        bless {
		_file	=> $file,
               	_jsonl	=> JSON::Lines->new( %jsonl_args ),
		_level  => defined $level ? $level : 8, 
		_levels	=> {
			emerg	=> 1,
			alert	=> 2,
			cri

{ $_[0]->{_level} }

sub jsonl {
	$_[0]->{_jsonl}->clear_stream;
	$_[0]->{_jsonl};
}

sub log {
	my($self, $level, $msg) = @_;
	die "Invalid level ${level} passed to Log::JSON::Lines->log" 
		unless $