Yet Another CPAN Grep

WWW-Deduce-Ingest ( D/DE/DEDUCE/WWW-Deduce-Ingest-1.1.tar.gz, DEDUCE, 2019; MetaCPAN )

WWW-Deduce-Ingest/Ingest.pm ( view source; MetaCPAN )

 Created: 2019-Jul-22 16:07 (EDT)
# Function: Deduce Ingest API

package WWW::Deduce::Ingest;
use JSON;
use LWP::UserAgent;
use LWP::Protocol::https;
use HTTP::Request;
use Digest::SHA 'sha1_hex', 'sh

opts  = shift;

    my $data = { site => $me->{site}, vers => $VERHASH };
    $data->{testmode} = JSON::true if $opts->{testmode} || $me->{testmode};

    if( email_valid($email) ){
        $email = t

collect_url};
        }
    }

    my $json = to_json($data, {utf8 => 1, pretty => 1});

    my $html = <<EOS;
<script type="text/javascript">
var dd_info = $json
</script>
<script type="text/javascri