Yet Another CPAN Grep

Captcha-Stateless-Text ( H/HI/HIGHTOWE/Captcha-Stateless-Text-0.5.zip, HIGHTOWE, 2024; MetaCPAN )

Captcha-Stateless-Text/lib/Captcha/Stateless/Text.pm ( view source; MetaCPAN )

        # libtry-tiny-perl
use Crypt::Mode::CBC;            # libcryptx-perl
use JSON qw(to_json from_json);  # libjson-perl
use Lingua::EN::Nums2Words;      # From CPAN (cpanm Lingua::EN::Nums2Words)

ad($self, $qa) {
  # Make and add the enc_payload
  my $payload_json = to_json($qa);
  my $enc_payload = $self->encrypt_b64($payload_json);
  $qa->{enc_payload} = $self->{ep_pre} . $enc_payload;
}
sub

 $payload = $self->decrypt_b64($enc_payload);
  return 0 if (!defined($payload));
  my $qa = from_json($payload);
  return 1 if ($qa->{a} =~ m/^\d+$/ && $answer == $qa->{a});
  return 1 if ($answer eq