From 9618369a452630ee7c4b2420a56000c185088811 Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Sat, 26 Nov 2022 14:22:11 +0300
Subject: [PATCH] Add debug for api errors

---
 lib/Teapot/Bot/Brain.pm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/lib/Teapot/Bot/Brain.pm b/lib/Teapot/Bot/Brain.pm
index 855b8ab..13ea300 100644
--- a/lib/Teapot/Bot/Brain.pm
+++ b/lib/Teapot/Bot/Brain.pm
@@ -13,7 +13,7 @@ use English qw ( -no_match_vars );
 use Mojo::IOLoop ();
 use Mojo::JSON qw (true false);
 use Mojo::UserAgent ();
-use Carp qw/croak cluck confess/; # use croak where we return error up to app that supply something wrong
+use Carp qw/carp croak cluck confess/; # use croak where we return error up to app that supply something wrong
                                   # use cluck where we want to say that something bad but non-critical happen in
                                   #     lower layer (Mojo loop)
                                   # use confess where we want to say that fatal error happen in lower layer (Mojo loop)
@@ -743,7 +743,14 @@ sub _post_request {
   }
   elsif ($res->is_error) {
     # This can be non-fatal error: api change.
-    cluck 'Failed to post: ' . $res->message;
+    #cluck 'Failed to post: ' . $res->message;
+    carp 'Failed to post to: ' . $res->message;
+    carp sprintf (
+     "Input parameters: %s\nResonse Dump: %s\nURL:%s\n",
+     Dumper ($form_args),
+     Dumper ($res),
+     $url,
+    );
     return 0; # to handle this as false in upper layers
   }
   else {