Yet Another CPAN Grep

WWW-StopForumSpam ( P/PH/PHIPSTER/WWW-StopForumSpam-0.02.tar.gz, PHIPSTER, 2014; MetaCPAN )

WWW-StopForumSpam/lib/WWW/StopForumSpam.pm ( view source; MetaCPAN )

croak);
use URI::Escape;
use Digest::MD5 qw(md5_hex);
use Socket;
use WWW::Curl::Easy;
use JSON qw(decode_json);

our $VERSION = '0.02';

sub new {
    my $class = shift;
    my $self = bless({}, $cla

. uri_escape($value));
        }
    }
    
    # add default params
    push(@request_params, "f=json");
    
    my ($http_code, $buffer) = $self->_query_api(join("&", @request_params));
    
    #


    
    my $decoded_json = decode_json($buffer);
    if(not defined $decoded_json->{'success'}) {
        warn "unable to read json";
        return 1;
    } elsif($decoded_json->{'success'} == 0) {