WWW :: Scripter JE - MouseEvent 'не поддерживается

Question

Я пытаюсь автоматизировать веб-приложение, имеющее JavaScript.

Я использую для этого WWW :: Scripter.

для перехода по ссылке, я использую следующий код, но кажется, что MouseEvent не поддерживается.

$wi->eval ('var theEvent = document.createEvent("MouseEvent");');
$wi->eval ('theEvent.initMouseEvent("click", true, true, window, 0, 0, 0, 0, 0, false, false, false, false, 0, null);');
$wi->eval ('var element = document.getElementsByTagName("li")[3].getElementsByTagName("a")[0];');
$wi->eval ('element.dispatchEvent(theEvent);');

У нас есть какой-нибудь другой способ сделать это.

Answer 1

use WWW::Scripter;

$wi = new WWW::Scripter;
$wi->use_plugin('JavaScript');

$wi->get('http://...');

$wi->follow_link(url => 
  $wi->eval(
    'document.getElementsByTagName("li")[3].getElementsByTagName("a")[0].href'
  )
);