Как явно очистить куки, используя модуль WWW::Scripter в Perl?

Question

Простой Perl- код:

      use WWW::Scripter;
       
      ...
                 
      my $w = WWW::Scripter->new('agent' => 'myAgent');
      $w->use_plugin('JavaScript');
       
      ...
       
      $w->get($url);
       
      ### WWW::Mechanize automatic cookies = good for now
       
      $w->add_header(Referer => $url);
      $url = $w->document->getElementsByTagName('a')->[0]->href;
      $w->get($url);
       
      ...
       
      ### WWW::Mechanize automatic cookies = NOT good for now
      ### ! need to clear cookie jar here !
       
      ...
       
      $w->add_header(Referer => $url);
      $url = $w->document->getElementsByTagName('a')->[0]->href;
      $w->get($url);

Одна из хороших особенностей WWW::Mechanize Это автоматические куки, которые хороши в какой-то момент, но иногда куки нужно очистить. Как?

Answer 1

WWW::Mechanize метод cookie_jar возвращает HTTP::Cookies объект. Соответствующий метод действительно назван clear,

Answer 2

Глядя на документацию, вы не можете просто сбросить атрибут jar cookie?

например

$w->cookie_jar({});