File Coverage

blib/lib/Mojolicious/Plugin/ReCAPTCHAv2Async.pm

Criterion	Covered	Total	%
statement	30	40	75.0
branch	3	8	37.5
condition	2	4	50.0
subroutine	5	5	100.0
pod	1	1	100.0
total	41	58	70.6

package Mojolicious::Plugin::ReCAPTCHAv2Async;
# ABSTRACT: Adds async recaptcha_verify_p helper to Mojolicious ReCAPTCHAv2 plugin.
$Mojolicious::Plugin::ReCAPTCHAv2Async::VERSION = '0.001';
use Mojo::Base 'Mojolicious::Plugin::ReCAPTCHAv2';
use Mojo::UserAgent;
use Mojo::Promise;

has ua => sub { Mojo::UserAgent->new->max_redirects(0); };

sub register {
  my $plugin = shift;
  my ($app, $conf) = @_;

  $plugin->next::method(@_);

  $plugin->ua->request_timeout($plugin->conf->{'api_timeout'});

  $app->helper(recaptcha_verify_p => sub {
    my $c = shift;

    my %verify_params = (
      remote_ip => $c->tx->remote_address,
      response => ( $c->req->param('g-recaptcha-response') || '' ),
      secret => $plugin->conf->{'secret'},
    );

    my $url = $plugin->conf->{'api_url'};
    my $timeout = $plugin->conf->{'api_timeout'};

    my $p = Mojo::Promise->new();
    $plugin->ua->post( $url => form => \%verify_params, sub {
      my ($ua, $tx) = @_;

      if (my $err = $tx->error) {
        my $txt = 'Retrieving captcha verification failed';
        $txt   .= ' (HTTP ' . $err->{'code'} . ')' if $err->{'code'};

        $c->app->log->error( $txt . ': ' . $err->{'message'} );
        $c->app->log->error( 'Request was: ' . $tx->req->to_string );
        return $p->reject( 'x-http-communication-failed' );
      }

      my $res = $tx->res;
      my $json = eval { $res->json };

      if (not defined $json) {
        $c->app->log->error( 'Decoding JSON response failed: ' . $@ );
        $c->app->log->error( 'Request  was: ' . $tx->req->to_string );
        $c->app->log->error( 'Response was: ' . $tx->res->to_string );
        return $p->reject( 'x-unparseable-data-received' );
      }

      if (not $json->{'success'}) {
        return $p->reject( @{ $json->{'error-codes'} // [] } );
      }

      return $p->resolve;

    });

    return $p;
  });
}

1;

__END__