Yet Another CPAN Grep

Google-reCAPTCHA ( T/TC/TCORKRAN/Google-reCAPTCHA-0.06.tar.gz, TCORKRAN, 2016; MetaCPAN )

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

package Google::reCAPTCHA;

use strict;
use warnings;

use Carp;
use LWP::UserAgent;
use JSON qw( decode_json );
use Params::Validate qw( validate SCALAR );

our $VERSION = '0.06';

use constant URL =

ponse = $ua->post( URL , $pd );
    
    if ( $response->is_success)  {
        my $data = decode_json( $response->decoded_content );
        
        if ( exists ( $data->{'error-codes'} ) ) {