App-CekBpom

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      },
      "runtime" : {
         "requires" : {
            "Data::Sah::Compiler::perl::TH::array" : "0.911",
            "Data::Sah::Compiler::perl::TH::bool" : "0.911",
            "Data::Sah::Compiler::perl::TH::str" : "0.911",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "Date::Format::ISO8601" : "0",
            "Exporter" : "5.57",
            "HTTP::CookieJar::LWP" : "0",
            "JSON::Encode::TableData" : "0",
            "LWP::UserAgent::Plugin" : "0.004",
            "Log::ger" : "0.038",
            "Perinci::CmdLine::Any" : "0.152",
            "Perinci::CmdLine::Lite" : "1.915",
            "Sah::Schema::dirname" : "0",
            "Sah::Schema::filename" : "0",
            "Time::HiRes" : "0",
            "URI::Escape" : "0",
            "perl" : "5.010001",

META.yml  view on Meta::CPAN

    file: lib/App/CekBpom.pm
    version: '0.022'
requires:
  Data::Sah::Compiler::perl::TH::array: '0.911'
  Data::Sah::Compiler::perl::TH::bool: '0.911'
  Data::Sah::Compiler::perl::TH::str: '0.911'
  Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix: '0'
  Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix: '0'
  Date::Format::ISO8601: '0'
  Exporter: '5.57'
  HTTP::CookieJar::LWP: '0'
  JSON::Encode::TableData: '0'
  LWP::UserAgent::Plugin: '0.004'
  Log::ger: '0.038'
  Perinci::CmdLine::Any: '0.152'
  Perinci::CmdLine::Lite: '1.915'
  Sah::Schema::dirname: '0'
  Sah::Schema::filename: '0'
  Time::HiRes: '0'
  URI::Escape: '0'
  perl: '5.010001'

Makefile.PL  view on Meta::CPAN

  "MIN_PERL_VERSION" => "5.010001",
  "NAME" => "App::CekBpom",
  "PREREQ_PM" => {
    "Data::Sah::Compiler::perl::TH::array" => "0.911",
    "Data::Sah::Compiler::perl::TH::bool" => "0.911",
    "Data::Sah::Compiler::perl::TH::str" => "0.911",
    "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" => 0,
    "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" => 0,
    "Date::Format::ISO8601" => 0,
    "Exporter" => "5.57",
    "HTTP::CookieJar::LWP" => 0,
    "JSON::Encode::TableData" => 0,
    "LWP::UserAgent::Plugin" => "0.004",
    "Log::ger" => "0.038",
    "Perinci::CmdLine::Any" => "0.152",
    "Perinci::CmdLine::Lite" => "1.915",
    "Sah::Schema::dirname" => 0,
    "Sah::Schema::filename" => 0,
    "Time::HiRes" => 0,
    "URI::Escape" => 0,
    "strict" => 0,

Makefile.PL  view on Meta::CPAN

my %FallbackPrereqs = (
  "Data::Sah::Compiler::perl::TH::array" => "0.911",
  "Data::Sah::Compiler::perl::TH::bool" => "0.911",
  "Data::Sah::Compiler::perl::TH::str" => "0.911",
  "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" => 0,
  "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" => 0,
  "Date::Format::ISO8601" => 0,
  "Exporter" => "5.57",
  "File::Spec" => 0,
  "HTTP::CookieJar::LWP" => 0,
  "IO::Handle" => 0,
  "IPC::Open3" => 0,
  "JSON::Encode::TableData" => 0,
  "LWP::UserAgent::Plugin" => "0.004",
  "Log::ger" => "0.038",
  "Perinci::CmdLine::Any" => "0.152",
  "Perinci::CmdLine::Lite" => "1.915",
  "Sah::Schema::dirname" => 0,
  "Sah::Schema::filename" => 0,
  "Test::More" => 0,

dist.ini  view on Meta::CPAN

[@Author::PERLANCAR]
:version=0.606

[Prereqs]
perl=5.010001
strict=0
warnings=0
Date::Format::ISO8601=0
Exporter=5.57
HTTP::CookieJar::LWP=0
JSON::Encode::TableData=0
Log::ger=0.038
LWP::UserAgent::Plugin=0.004
Time::HiRes=0
URI::Escape=0

[Prereqs / DevelopX_spec]
-phase=develop
-relationship=x_spec
Rinci=1.1.102

lib/App/CekBpom.pm  view on Meta::CPAN

        {
            summary => 'Adding --trace will show query details, --format html+datatables is convenient to see/search/sort results in browser',
            src => "[[prog]] hichew hi-chew 'hi chew' --trace --format html+datatables",
            src_plang => "bash",
            test => 0,
            'x.doc.show_result' => 0,
        },
    ],
};
sub cek_bpom_products {
    require HTTP::CookieJar::LWP;
    require LWP::UserAgent::Plugin;

    my $time_start = time();

    my %args = @_;
    defined(my $queries = $args{queries}) or return [400, "Please specify queries"];
    my $search_types = $args{search_types} // ['nama_produk', 'merk'];

    my $jar = HTTP::CookieJar::LWP->new;
    my $ua = LWP::UserAgent::Plugin->new(
        cookie_jar => $jar,
    );

    # first get the front page so we get the session ID
    log_trace "Requesting cekbpom front page ...";
    my $res = $ua->get($url_prefix);
    unless ($res->is_success) {
        return [$res->code, "Can't get front page ($url_prefix): ".$res->message];
    }