Fixed dzil errors and warns...

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

diff --git a/lib/WWW/EZTV/UA.pm b/lib/WWW/EZTV/UA.pm
index f2fbeeb..1b6b3c2 100644 (file)
--- a/lib/WWW/EZTV/UA.pm
+++ b/lib/WWW/EZTV/UA.pm
@@ -1,9 +1,14 @@
 package WWW::EZTV::UA;
+
 use Moose::Role;
 use Mojo::UserAgent;
 
+# ABSTRACT: User agent for EZTV scrapper.
+
 has ua  => ( is => 'ro', lazy => 1, default => sub { $EZTV::Global::UA || ($EZTV::Global::UA = Mojo::UserAgent->new) } );
 
+=method get_response
+=cut
 sub get_response {
     my ($self, $url) = (shift, shift);
 
@@ -14,7 +19,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');
     }
 }