Yet Another CPAN Grep

App-wp-xmlrpc ( P/PE/PERLANCAR/App-wp-xmlrpc-0.003.tar.gz, PERLANCAR, 2017; MetaCPAN )

App-wp-xmlrpc/lib/App/wp/xmlrpc.pm ( view source; MetaCPAN )

 value starts with '[' or '{' then it
# will be assumed to be JSON and will be JSON-decoded.
sub _convert_args_to_struct {
    require JSON::MaybeXS;

    my $args = shift;
    for my $k (keys %$args)

unless $args->{$k} =~ /\A(?:\[|\{)/;
        eval { $args->{$k} = JSON::MaybeXS::decode_json($args->{$k}) };
        die "Invalid JSON in '$k' argument: $@\n" if $@;
    }
}

sub _api {
    require XM

ltCode}, $fault->{faultString}];
    }
    [200, "OK", $call->result, {'cmdline.default_format'=>'json-pretty'}];
}

our %API_Methods = (
    # Posts
    'wp.getPost' => {
        args => [