Changeset 20

Timestamp:

10/09/09 22:59:50 (7 weeks ago)

Author:

athomason

Message:

update Net::Akismet::Compat

Files:

• trunk/lib/Net/Akismet/Compat.pm (modified) (5 diffs)

trunk/lib/Net/Akismet/Compat.pm

@@ -19 +19 @@
 use base 'Net::Akismet';
 
-our $VERSION = '0.13';
+our $VERSION = '0.14';
 
 =head1 SYNOPSIS
@@ -77 +77 @@
 true.
 
+=item STRICT
+
+If true (the default), calling new() without KEY or URL parameters, or calling 
+check(), spam(), or ham() without a USER_IP or COMMENT_USER_AGENT will result
+in a fatal error.
+
 =back
 
@@ -96 +102 @@
     $self->{ua} ||= LWP::UserAgent->new();
 
-    my $key = $self->{KEY} or croak "no KEY provided";
-    my $url = $self->{URL} or croak "no URL provided";
+    $self->{STRICT}++ unless defined $self->{STRICT};
+
+    if ($self->{STRICT}) {
+        croak "no KEY provided" unless $self->{KEY};
+        croak "no URL provided" unless $self->{URL};
+    }
 
         my $agent = "$UA_SUFFIX ";
@@ -166 +176 @@
     my $comment = shift;
 
-        croak "no USER_IP provided" unless $comment->{USER_IP};
-    croak "no COMMENT_USER_AGENT provided" unless $comment->{COMMENT_USER_AGENT};
+    if ($self->{STRICT}) {
+        croak "no USER_IP provided" unless $comment->{USER_IP};
+        croak "no COMMENT_USER_AGENT provided" unless $comment->{COMMENT_USER_AGENT};
+    }
 
     my @data = (
@@ -197 +209 @@
     $self->{response_obj} = $response;
 
-    croak "no response received" unless $response;
+    croak 'no response received' unless $response;
 
     $self->{response} = $response->content();
 
-    croak "response not successful" unless $response->is_success;
+    croak 'response not successful: ' . $response->as_string
+        unless $response->is_success;
 
     return 1;