Yet Another CPAN Grep

WWW-DaftarNama-Reseller ( P/PE/PERLANCAR/WWW-DaftarNama-Reseller-0.002.tar.gz, PERLANCAR, 2018; MetaCPAN )

WWW-DaftarNama-Reseller/lib/WWW/DaftarNama/Reseller.pm ( view source; MetaCPAN )

s => {schema => 'net::hostname*', req=>1},
);

sub _request {
    require HTTP::Tiny;
    require JSON::MaybeXS;

    my (%args) = @_;

    my $url = "https://www.daftarnama.id/api/provider.php";

    unless $res->{success};

    my $data;
    eval { $data = JSON::MaybeXS::decode_json($res->{content}) };
    return [500, "Invalid JSON response from server: $@"] if $@;

    [200, "OK", $data];
}