Почему не устанавливается agent() при использовании LWP::Parallel::UserAgent?

LWP::Parallel::UserAgent является подклассом LWP::UserAgent, но плохо себя ведет. Вместо использования методов доступа он захватывает внутренние поля и предполагает, что агент будет храниться в $self->{agent}. Может когда-то и было, но уже нет.

# Extract fields that will be used below
my ($agent, $from, $timeout, $cookie_jar,
    $use_eval, $parse_head, $max_size, $nonblock) =
  @{$self}{qw(agent from timeout cookie_jar
              use_eval parse_head max_size nonblock)};

Это предполагает, что пользовательский агент хранится в $self->{agent}. Это не так. Вместо этого следует сделать что-то подобное для вызова каждого метода доступа по очереди.

my %fields;
my @fields = qw(agent from timeout cookie_jar parse_head max_size);
for my $field (@fields) {
    $fields{$field} = $self->$field();
}

Или просто используйте аксессоры напрямую. Это будет использовать задокументированный интерфейс для LWP.

nonblock и use_eval являются особыми случаями. Это не поля LWP::UserAgent, они были добавлены LWP::Parallel. Для use_eval нет метода доступа. Есть LWP::Parallel::UserAgent::nonblock(), но это всего лишь сеттер. Я не думаю, что это сделано намеренно.

Поскольку он не определяет аксессор для use_eval и должен его добавить. И вы можете исправить nonblock, чтобы всегда возвращать свое значение.

sub nonblock {
    my $self = shift;
    $self->{'nonblock'} = $_[0] if defined $_[0];
    return $self->{nonblock};
}