LWP и редирект

[borbos]

Доброго времени. Вопрос такого рода, можно ли как-то средствами LWP управлять редиректом. Попробую пояснить кодом. Имеем

Код: (Perl)

#!/usr/bin/perl -w

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.13 (KHTML, like Gecko) Chrome/24.0.1284.0 Safari/537.13");

$ua->get('http://google.ru');
$ua->get('http://ya.ru');

Видно, что сначала запрашивается домен гугла, а потом яши. Так вот, запустив код, получаем, что гугл нас редиректит, затем проходя все редиректы открываетчя домен гугла, а потом уже яшки. Собственно, в чем проблема, можно ли сделать так, чтобы при редиректе выжыдалась некая пауза? Прошу прощение за сбивчатое объяснение...
Вот, что я имею ввиду
1. Запрашивается урл гугла.
2.Гугл нас пытается перебросить на другую страницу, НО, мы не переходим, а так сказать, выжидаем...
3. Идем на яндекс
4. А вот здесь, как ракз здесь, переходим уже по редиректу гугла...

[Sla]

Вот жеш...
А зачем? Но ладно

А есть у LWP что-нибудь пониже функции get?
например request - и ведь точно есть, а еще, наверное можно и статус ответа получить, и при редиректе location

[borbos]

Вот жеш...
А зачем? Но ладно

А есть у LWP что-нибудь пониже функции get?
например request - и ведь точно есть, а еще, наверное можно и статус ответа получить, и при редиректе location

В том то и дело, что хочется средствами LWP. Вручную заниматься всем этим не пойдет, ибо код у меня здоровенный, это я просто кусок вытащил и хотел наглядно продемонстрировать свою проблему

[Sla]

Если задался такой целью, то вперед!!! Здравствуй головная боль.
А как ты хотел?

[RXL]

borbos, право мне некогда читать за тебя мануалы... Даже если прозрачная обработка редиректа не поддерживается (в чем сомневаюсь), надо прочто поднять руку, чтобы создать прилив крови к правильному органу: сделай свой пакет, наследованный от LWP::UserAgent, и замени тот get на новую логику.

Код: (Perl)

package Borbos::LWP::UserAgent;
use parent LWP::UserAgent;

sub get {
  my $self = shift;

  # new logic with $self->SUPER::get
}

1;