Better error report and small test refactor

[cascardo/www-eztv.git] / lib / WWW / EZTV / UA.pm

diff --git a/lib/WWW/EZTV/UA.pm b/lib/WWW/EZTV/UA.pm
index 41df609..1b80ffc 100644 (file)
--- a/lib/WWW/EZTV/UA.pm
+++ b/lib/WWW/EZTV/UA.pm
@@ -18,7 +18,7 @@ sub get_response {
     else {
         my ($err, $code) = $tx->error;
         my $message = shift || 'User agent error';
-        die "$message: $err ($code)";
+        confess sprintf('%s: %s (%s)', $message, $err, $code||'no error code');
     }
 }