File Coverage

blib/lib/Google/reCAPTCHA/v3.pm

Criterion	Covered	Total	%
statement	21	57	36.8
branch	0	14	0.0
condition	0	3	0.0
subroutine	7	11	63.6
pod	2	2	100.0
total	30	87	34.4

package Google::reCAPTCHA::v3;

our $VERSION = '0.1.0';
use warnings;
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/recaptcha/api/siteverify',
	secret      => undef,
);

sub new {

    my $that = shift;
    my $class = ref($that) || $that;

    my $self = {
        _permitted => \%allowed,
        %allowed,
    };

    bless $self, $class;

    my ($args) = @_;

    $self->_init($args);
    return $self;
}

sub AUTOLOAD {
    my $self = shift;
    my $type = ref($self)
      or croak "$self is not an object";

    my $name = $AUTOLOAD;
       $name =~ s/.*://;    #strip fully qualifies portion

    unless ( exists $self->{_permitted}->{$name} ) {
        croak "Can't access '$name' field in object of class $type";
    }
    if (@_) {
        return $self->{$name} = shift;
    }
    else {
        return $self->{$name};
    }
}

sub _init {
    my $self = shift;
    my ($args) = @_;

	if(exists($args->{-secret})){
		$self->secret($args->{-secret});
	}
	else {
		carp "You'll need to pass the Google reCAPTCHA v3 secret key to new()";
	}

}

sub request {
	my $self = shift;
	my ($args) = @_;

	my $ua = LWP::UserAgent->new;

	if(!exists($args->{-response})){
		carp 'you will need to pass your response in -response to request()';
		return undef;
	}

	my $req_params = {
		response => $args->{-response},
	};

	if(exists($args->{-remoteip})){
    	$req_params->{remoteip} = $args->{-remoteip};
	}
	if(defined($self->secret)){
		$req_params->{secret} = $self->secret;
	}
	my $req = POST $self->request_url(), [%{$req_params}];

	my $json = JSON->new->allow_nonref;

	return $json->decode(
		$ua->request($req)->decoded_content
	);
}

1;

__END__