Yet Another CPAN Grep

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

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

package JSON::Lines;
use 5.006; use strict; use warnings; our $VERSION = '1.09';
use Cpanel::JSON::XS; use base 'Import::Export';

our ($JSON, $LINES, %EX);
BEGIN {
	$JSON = Cpanel::JSON::XS->new;
	$L

ES = qr{ ([\[\{] (?: (?> [^\[\]\{\}]+ ) | (??{ $LINES }) )* [\]\}]) }x;
	%EX = (
		jsonl => [qw/all/]
	);
}

sub jsonl {
	my %args = (scalar @_ == 1 ? %{$_[0]} : @_);
	my $self = __PACKAGE__->new(%arg

scalar @_ == 1 ? %{$_[0]} : @_);
	my $self = bless { headers => [] }, $pkg;
	exists $args{$_} && $JSON->$_($args{$_}) for qw/pretty canonical utf8/;
	$self->{$_} = $args{$_} for qw/parse_headers error