Add error checking

mdom · Mar 11, 2016 · 1698371 · 1698371
1 parent 845b75a
commit 1698371
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/lib/App/txtnix/Plugin/LinkBack.pm b/lib/App/txtnix/Plugin/LinkBack.pm
@@ -38,7 +38,16 @@ sub linkback {
         $app->ua->post(
             $url => form => { url => $app->twturl } => sub {
                 my ( $ua, $tx ) = @_;
-                warn "Couldn't ping back to $url\n" if !$tx->success;
+                if ( $tx->success ) {
+                    warn "Send ping back to $url.\n";
+                }
+                else {
+                    my $prefix = "Couldn't ping back to $url";
+                    my $err    = $tx->error;
+                    warn $err
+                      ? "$prefix: $err->{code} response: $err->{message}\n"
+                      : "$prefix: Connection error: $err->{message}\n";
+                }
                 $end->();
             }
         );