Yet Another CPAN Grep

DBIx-QuickORM ( E/EX/EXODIST/DBIx-QuickORM-0.000019.tar.gz, EXODIST, 2025; MetaCPAN )

DBIx-QuickORM/lib/DBIx/QuickORM/Connection/Fork.pm ( view source; MetaCPAN )

BIx::QuickORM::Role::Async';

use Carp qw/croak/;
use Time::HiRes qw/sleep/;
use Cpanel::JSON::XS qw/decode_json/;

use IO::Select;

use DBIx::QuickORM::Util::HashBase qw{
    <connection
    <sqla_so

ss $self->{+READY};

    my $pipe = $self->{+PIPE};
    my $line = <$pipe>;
    my $data = decode_json($line);

    unless ($data && exists $data->{result}) {
        chomp($line);
        croak "Got

$pipe = $self->{+PIPE};
    my $line = <$pipe>;
    if (defined $line) {
        my $row = decode_json($line);
        return $row if $row;
    }

    $self->set_done;

    return;
}

sub set_done {

PLS ( M/MR/MREISNER/PLS-0.906.tar.gz, MREISNER, 2025; MetaCPAN )

PLS/lib/PLS.pm ( view source; MetaCPAN )

etter if you have an XS JSON module installed.
If you install L<Cpanel::JSON::XS> or L<JSON::XS>, it will use one of those
before falling back to L<JSON::PP>, similar to L<JSON::MaybeXS>.

=head1 NOTE

PLS ( M/MR/MREISNER/PLS-0.906.tar.gz, MREISNER, 2025; MetaCPAN )

PLS/README.pod ( view source; MetaCPAN )

etter if you have an XS JSON module installed.
If you install L<Cpanel::JSON::XS> or L<JSON::XS>, it will use one of those
before falling back to L<JSON::PP>, similar to L<JSON::MaybeXS>.

=head1 NOTE

PLS ( M/MR/MREISNER/PLS-0.906.tar.gz, MREISNER, 2025; MetaCPAN )

PLS/lib/PLS/Server.pm ( view source; MetaCPAN )

IO::Async::Signal;
use IO::Async::Stream;
use IO::Handle;
use Scalar::Util qw(blessed);

use PLS::JSON;
use PLS::Server::Request::Factory;
use PLS::Server::Response;
use PLS::Server::Response::Cancell

$buffref}) < $size);

                my $json = substr ${$buffref}, 0, $size, '';
                $size = 0;

                my $content = decode_json $json;

                $self->handle_client_me

('PLS::Server::Message'));
    my $json   = $message->serialize();
    my $length = length ${$json};
    $self->{stream}->write("Content-Length: $length\r\n\r\n$$json")->retain();

    return;
} ## en

Map-Tube-Rome ( G/GD/GDT/Map-Tube-Rome-1.02.tar.gz, GDT, 2025; MetaCPAN )

Map-Tube-Rome/lib/Map/Tube/Rome.pm ( view source; MetaCPAN )

N   = '1.02';
$Map::Tube::Rome::AUTHORITY = 'cpan:GDT';

has json => (is => 'ro', default => sub { dist_file('Map-Tube-Rome', 'rome-map.json') });

with 'Map::Tube';

1;

__END__

=pod

=encoding UTF-

json>, is optional; if specified, it should be a code ref
to a function that returns either the path the JSON map file, or a string
containing this JSON content. The default is the path to F<rome.json

istribution. For further information see L<Map::Tube>.

=head2 json()

This read-only accessor returns whatever was specified as the JSON source at
construction.
 
=head2 get_shortest_route($from, $to

PLS ( M/MR/MREISNER/PLS-0.906.tar.gz, MREISNER, 2025; MetaCPAN )

PLS/lib/PLS/Server/Response/InitializeResult.pm ( view source; MetaCPAN )

nse::InitializeResult;

use strict;
use warnings;

use parent q(PLS::Server::Response);

use PLS::JSON;
use PLS::Server::State;

=head1 NAME

PLS::Server::Response::InitializeResult

=head1 DESCRIPTIO

DetailsSupport => PLS::JSON::true
                                                              },
                                            definitionProvider     => PLS::JSON::true,

                        documentSymbolProvider => PLS::JSON::true,
                                            hoverProvider          => PLS::JSON::true,
                                            si

PLS ( M/MR/MREISNER/PLS-0.906.tar.gz, MREISNER, 2025; MetaCPAN )

PLS/lib/PLS/Server/Request/Initialized.pm ( view source; MetaCPAN )

ict;
use warnings;

use parent 'PLS::Server::Request';

use List::Util;
use Path::Tiny;

use PLS::JSON;
use PLS::Server::Request::Workspace::Configuration;
use PLS::Server::Request::Client::RegisterCa

dexing',
                                                                     cancellable => PLS::JSON::false,
                                                                     percentage  => 0

PLS ( M/MR/MREISNER/PLS-0.906.tar.gz, MREISNER, 2025; MetaCPAN )

PLS/lib/PLS/Parser/PackageSymbols.pm ( view source; MetaCPAN )

arnings;
use feature 'state';

use Future;
use IO::Async::Loop;
use IO::Async::Process;

use PLS::JSON;

=head1 NAME

PLS::Parser::PackageSymbols

=head1 DESCRIPTION

This package executes a Perl proc

 @_;

    $data = encode_json $data;

    return $process->stdin->write("$data\n")->then(sub { $process->stdout->read_until("\n") })->then(
        sub {
            my ($json) = @_;

            retu

rn Future->done(eval { decode_json $json } // {});
        },
        sub { Future->done({}) }
    );
} ## end sub _send_data_and_recv_result

sub start_package_symbols_process
{
    my ($config) = @_

PLS ( M/MR/MREISNER/PLS-0.906.tar.gz, MREISNER, 2025; MetaCPAN )

PLS/lib/PLS/Server/Message.pm ( view source; MetaCPAN )

package PLS::Server::Message;

use strict;
use warnings;

use PLS::JSON;

=head1 NAME

PLS::Server::Message

=head1 DESCRIPTION

This class is the abstract base class for all messages sent between
ser

) = @_;

    my %content = (
                   jsonrpc => '2.0',
                   %{$self}
                  );

    my $json = encode_json \%content;
    return \$json;
} ## end sub serialize

1;

Bluesky-Poster ( N/NH/NHORNE/Bluesky-Poster-0.02.tar.gz, NHORNE, 2025; MetaCPAN )

Bluesky-Poster/lib/Bluesky/Poster.pm ( view source; MetaCPAN )

 Bluesky::Poster;

use strict;
use warnings;

use Carp;
use LWP::UserAgent;
use JSON::MaybeXS qw(encode_json decode_json);
use Object::Configure;
use Params::Validate::Strict;
use Params::Get;
use URI

d parameter: $required"
		}
	}

	my $self = {
		%{$params},
		agent	=> LWP::UserAgent->new,
		json => JSON::MaybeXS->new()->utf8->canonical,
		session	=> undef,
	};

	bless $self, $class;

	$self->_lo

sky.social/xrpc/com.atproto.server.createSession',
		'Content-Type' => 'application/json',
		Content => $self->{json}->encode({
			identifier => $self->{identifier},
			password => $self->{password},

DBIx-QuickORM ( E/EX/EXODIST/DBIx-QuickORM-0.000019.tar.gz, EXODIST, 2025; MetaCPAN )

DBIx-QuickORM/lib/DBIx/QuickORM/STH/Fork.pm ( view source; MetaCPAN )

BIx::QuickORM::Role::Async';

use Carp qw/croak/;
use Time::HiRes qw/sleep/;
use Cpanel::JSON::XS qw/decode_json/;

use IO::Select;

use DBIx::QuickORM::Util::HashBase qw{
    <connection
    <source

ss $self->{+READY};

    my $pipe = $self->{+PIPE};
    my $line = <$pipe>;
    my $data = decode_json($line);

    unless ($data && exists $data->{result}) {
        chomp($line);
        croak "Got

$pipe = $self->{+PIPE};
    my $line = <$pipe>;
    if (defined $line) {
        my $row = decode_json($line);
        return $row if $row;
    }

    $self->set_done;

    return;
}

sub set_done {