lib/WWW/EZTV/UA.pm

   1 package WWW::EZTV::UA;
   2
   3 use Moose::Role;
   4 use Mojo::UserAgent;
   5
   6 # ABSTRACT: User agent for EZTV scrapper.
   7
   8 has ua  => ( is => 'ro', lazy => 1, default => sub { $EZTV::Global::UA || ($EZTV::Global::UA = Mojo::UserAgent->new) } );
   9
  10 =method get_response
  11 =cut
  12 sub get_response {
  13     my ($self, $url) = (shift, shift);
  14
  15     my $tx = $self->ua->get( $url );
  16     if ( my $res = $tx->success ) {
  17         return $res;
  18     }
  19     else {
  20         my ($err, $code) = $tx->error;
  21         my $message = shift || 'User agent error';
  22         confess sprintf('%s: %s (%s)', $message, $err, $code||'no error code');
  23     }
  24 }
  25
  26 1;