Captcha-reCaptcha
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Captcha/reCAPTCHA.pm view on Meta::CPAN
my $c = Captcha::reCAPTCHA->new;
# Output form New Version
print $c->get_html_v2( 'your public key here' );
# Version 1 (not recommended)
print $c->get_html( 'your public key here' );
# Verify submission
my $result $c->check_answer_v2($private_key, $response, $ENV{REMOTE_ADDR});
# Verify submission (Old Version)
my $result = $c->check_answer(
'your private key here', $ENV{'REMOTE_ADDR'},
$challenge, $response
);
if ( $result->{is_valid} ) {
print "Yes!";
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.279 second using v1.00-cache-2.02-grep-82fe00e-cpan-2cc899e4a130 )