A WWW :: Mechanize объект isa LWP :: UserAgent , который имеет атрибут cookie_jar
, который обычно содержит HTTP ::Cookie объект, который имеет метод set_cookie
.
Таким образом, вы бы сделали что-то вроде:
$mech->cookie_jar->set_cookie( $version, $key, $val, $path, $domain, $port,
$path_spec, $secure, $maxage, $discard, \%rest )
Метод set_cookie () обновляет состояние$ cookie_jar.Аргументы $ key, $ val, $ domain, $ port и $ path являются строками.Аргументы $ path_spec, $ secure, $ discard являются логическими значениями.Значение $ maxage - это число, указывающее количество секунд, в течение которых этот cookie будет жить.Значение <= 0 удалит этот файл cookie.% rest определяет различные другие атрибуты, такие как «Comment» и «CommentURL». </p>