Yet Another CPAN Grep

Google-reCAPTCHA-v3 ( J/JJ/JJSIMONI/Google-reCAPTCHA-v3-0.1.1.tar.gz, JJSIMONI, 2021; MetaCPAN )

Google-reCAPTCHA-v3/lib/Google/reCAPTCHA/v3.pm ( view source; MetaCPAN )

 
use strict;

use Carp qw(croak carp);
use LWP; 
use HTTP::Request::Common qw(POST);
use JSON qw( decode_json );

use vars qw($AUTOLOAD);
my %allowed = ( 
	request_url => 'https://www.google.com/reca

>secret; 
	}
	my $req = POST $self->request_url(), [%{$req_params}];
		
	my $json = JSON->new->allow_nonref;
	
	return $json->decode(
		$ua->request($req)->decoded_content
	);	
}

sub DESTROY {}

1;