Yet Another CPAN Grep

TheSchwartz ( A/AK/AKIYM/TheSchwartz-1.18.tar.gz, AKIYM, 2024; MetaCPAN )

TheSchwartz/server/t/01-insert-and-get.t ( view source; MetaCPAN )

ft;
    my $ret = $cl->do_task( "insert_job", json($req) );
    return undef unless $ret;
    return $$ret unless $$ret =~ /^\s*[\[\{]/;
    return unjson($$ret);
}

$ret = do_req(
    {   funcname =>

TheSchwartz ( A/AK/AKIYM/TheSchwartz-1.18.tar.gz, AKIYM, 2024; MetaCPAN )

TheSchwartz/server/t/lib/testlib.pl ( view source; MetaCPAN )

7 00:39:55Z bradfitz $

use strict;
use File::Spec;
use Carp qw(croak);
use DBI;
use FindBin;
use JSON::Any;

use lib "$ENV{HOME}/hack/Data-ObjectDriver/lib";
use lib "$ENV{HOME}/hack/TheSchwartz/lib"

lib "$ENV{HOME}/cvs/gearman/api/perl/Gearman/lib";

sub json {
    return JSON::Any->objToJson(shift);
}

sub unjson {
    return JSON::Any->json_to_obj(shift);
}

sub test_client {
    my %opts = @_;