5 has ua => ( is => 'ro', lazy => 1, default => sub { $EZTV::Global::UA || ($EZTV::Global::UA = Mojo::UserAgent->new) } );
8 my ($self, $url) = (shift, shift);
10 my $tx = $self->ua->get( $url );
11 if ( my $res = $tx->success ) {
15 my ($err, $code) = $tx->error;
16 my $message = shift || 'User agent error';
17 die "$message: $err ($code)";