Yet Another CPAN Grep

Perinci-Access-Simple-Server ( P/PE/PERLANCAR/Perinci-Access-Simple-Server-0.290.tar.gz, PERLANCAR, 2021; MetaCPAN )

Perinci-Access-Simple-Server/lib/Perinci/Access/Simple/Server/Socket.pm ( view source; MetaCPAN )

# VERSION

use 5.010001;
use strict;
use warnings;
use Log::ger;

use Data::Clean::FromJSON;
use Data::Clean::JSON;
use File::HomeDir;
use IO::Handle::Record; # to get peercred() in IO::Socket::UNIX
u

se IO::Select;
use IO::Socket qw(:crlf);
use IO::Socket::INET;
use IO::Socket::UNIX;
use JSON::MaybeXS;
use Perinci::Access;
use Perinci::AccessUtil qw(insert_riap_stuffs_to_res decode_args_in_riap_re

es qw(time);
use URI::Escape;

use Moo;

my $cleanser   = Data::Clean::JSON->get_cleanser;
my $cleanserfj = Data::Clean::FromJSON->get_cleanser;

has name                   => (
    is => 'rw',
    de

Perinci-Access-Simple-Server ( P/PE/PERLANCAR/Perinci-Access-Simple-Server-0.290.tar.gz, PERLANCAR, 2021; MetaCPAN )

Perinci-Access-Simple-Server/lib/Perinci/Access/Simple/Server/Pipe.pm ( view source; MetaCPAN )

SION

use 5.010001;
use strict;
use warnings;
use Log::ger;

use Data::Clean::FromJSON;
use Data::Clean::JSON;
use JSON::MaybeXS;
use Perinci::AccessUtil qw(insert_riap_stuffs_to_res decode_args_in_ri

eless->new();
    });

my $json       = JSON::MaybeXS->new->allow_nonref->canonical;
my $cleanser   = Data::Clean::JSON->get_cleanser;
my $cleanserfj = Data::Clean::FromJSON->get_cleanser;

$|++;

# d

insert_riap_stuffs_to_res($res, $v);
    $res = $cleanser->clone_and_clean($res);
    print "j", $json->encode($res), "\015\012";
}

sub run {
    my $self = shift;
    my $last;

    log_trace("Start