Yet Another CPAN Grep

Finance-SE-IDX ( P/PE/PERLANCAR/Finance-SE-IDX-0.008.tar.gz, PERLANCAR, 2021; MetaCPAN )

Finance-SE-IDX/lib/Finance/SE/IDX.pm ( view source; MetaCPAN )


sub _get_json {
    my $url = shift;

    state $ff = do {
        require Firefox::Marionette;
        Firefox::Marionette->new;
    };

    log_debug "";
    my $json = $ff->go($url)->json;
    [20

0, "OK", $json];
}

#sub _get_json_with_lwp {
#    state $ua = do { require LWP::UserAgent::Plugin; LWP::UserAgent::Plugin->new };
#
#    my $url = shift;
#
#    my $res = $ua->get($url);
#    return

 $res->message] unless $res->is_success;
#    require JSON::MaybeXS;
#    [200, "OK", JSON::MaybeXS::decode_json($res->content)];
#}

sub _get_json_with_curl {
    require HTTP::Tinyish;
    no warnin