- debug: show user agent request & response

lib/SLUB/LZA/Rosetta/TA/SRU.pm

@@ -4,6 +4,7 @@ use warnings;
 use feature qw(say);
 use LWP::Authen::Basic;
 use LWP::UserAgent;
+use LWP::ConsoleLogger::Easy qw( debug_ua );
 use Carp;
 use namespace::autoclean;
 
@@ -61,6 +62,7 @@ sub sru_search {
         say "searchurl = $sru";
     }
     foreach my $retry (1 .. 2) {
+        my $console_logger = debug_ua( $ua );
         my $req = $ua->get($sru);
         if ($req->is_success) {
             my $xres = $req->decoded_content;