File Coverage

blib/lib/Google/reCAPTCHA.pm

Criterion	Covered	Total	%
statement	43	43	100.0
branch	8	10	80.0
condition			n/a
subroutine	12	12	100.0
pod	2	2	100.0
total	65	67	97.0

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.05';

use constant URL => 'https://www.google.com/recaptcha/api/siteverify';

my $IPv4_re = "((25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2})[.](25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2})[.](25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2})[.](25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2}))";
my $G       = "[0-9a-fA-F]{1,4}";

my @tail = ( ":",
	"(:($G)?|$IPv4_re)",
    ":($IPv4_re|$G(:$G)?|)",
    "(:$IPv4_re|:$G(:$IPv4_re|(:$G){0,2})|:)",
	"((:$G){0,2}(:$IPv4_re|(:$G){1,2})|:)",
	"((:$G){0,3}(:$IPv4_re|(:$G){1,2})|:)",
	"((:$G){0,4}(:$IPv4_re|(:$G){1,2})|:)"
);

my $IPv6_re = $G;

$IPv6_re = "$G:($IPv6_re|$_)" for @tail;
$IPv6_re = qq/:(:$G){0,5}((:$G){1,2}|:$IPv4_re)|$IPv6_re/;
$IPv6_re =~ s/\(/(?:/g;
$IPv6_re = qr/$IPv6_re/;

sub new {
    my $class = shift;
    my $self  = validate( @_, {
        secret => {
            type      => SCALAR,
            callbacks => {
                'is a secret key' =>
                    sub { $_[0] ne '' }
            }
        }
    } );

    bless $self, $class;

    return $self;
}

sub siteverify {
    my $self = shift;
    my $pd   = validate( @_, {
        response => {
            type      => SCALAR,
            callbacks => {
                'is a response code' =>
                    sub { $_[0] ne '' }
            }
        },
        remoteip => {
            type      => SCALAR,
            optional  => 1,
            callbacks => {
                'is a remote ipv4 or ipv6 address' =>
                    sub { $_[0] =~ /^$IPv4_re$/ || $_[0] =~ /^$IPv6_re$/ }
            },
        },
    } );

    $pd->{secret} = $self->{secret};

    my $ua = LWP::UserAgent->new;
    $ua->ssl_opts( verify_hostname => 0 );

    my $response = $ua->post( URL , $pd );

    if ( $response->is_success)  {
        my $data = decode_json( $response->decoded_content );

        if ( exists ( $data->{'error-codes'} ) ) {
            croak( 'API Error: ' . join( ', ', @{ $data->{'error-codes'} } ) );
        }

        return $data->{success} ? 1 : 0;
    }
    else {
        my $content = $response->decoded_content ? $response->decoded_content : '';
        my $message = 'HTTP Request failed with status ' . $response->code . ' : ' . $content;

        croak( $message );
    }
}

1;
__END__