码神之路:Perl篇

Mojo::UserAgent::CookieJar

2017-10-10  本文已影响11人  JSON_NULL

简介

use Mojo::UserAgent::CookieJar;

# Add response cookies
my $jar = Mojo::UserAgent::CookieJar->new;
$jar->add(
  Mojo::Cookie::Response->new(
    name   => 'foo',
    value  => 'bar',
    domain => 'localhost',
    path   => '/test'
  )
);

# Find request cookies
for my $cookie (@{$jar->find(Mojo::URL->new('http://localhost/test'))}) {
  say $cookie->name;
  say $cookie->value;
}

Mojo::UserAgent::CookieJar是基于RFC 6265的供Mojo :: UserAgent使用的简约轻松的cookie jar 。

属性

Mojo::UserAgent::CookieJar 实现了以下属性。

ignore

my $ignore = $jar->ignore;
$jar       = $jar->ignore(sub {...});

设置一个回调方法,当使用collect方法从一个“事务”(如Mojo::Transaction::HTTP)中提取Cookie时。coolect会遍历“事务”中的所有Cookie,并以当前Cookie为参数调用使用此属性设置的回调;如果回调返回的是true,则coolect会忽略当前的Cookie;否则collect方法会把当前Cookie放到提取的结果中。

# Ignore all cookies
$jar->ignore(sub { 1 });

# Ignore cookies for domains "com", "net" and "org"
$jar->ignore(sub {
  my $cookie = shift;
  return undef unless my $domain = $cookie->domain;
  return $domain eq 'com' || $domain eq 'net' || $domain eq 'org';
});

max_cookie_size

my $size = $jar->max_cookie_size;
$jar     = $jar->max_cookie_size(4096);

设置或获取最大Cookie的大小(单位为字节),默认为4096(4KiB)。

方法

Mojo :: UserAgent :: CookieJar继承Mojo :: Base中的所有方法,并实现以下新方法。

add

$jar = $jar->add(@cookies);

将多个Mojo::Cookie::Response对象添加到CookieJar对象中。

all

my $cookies = $jar->all;

返回当前存储在CookieJar中的所有Mojo::Cookie::Response对象。

# Names of all cookies
say $_->name for @{$jar->all};

collect

$jar->collect(Mojo::Transaction::HTTP->new);

从“事务”(如Mojo::Transaction::HTTP)中提取Mojo::Cookie::Response对象。

empty

$jar->empty;

清空CookieJar。

find

my $cookies = $jar->find(Mojo::URL->new);

在Mojo::URL对象的CookieJar中查找Mojo::Cookie::Request对象。

# Names of all cookies found
say $_->name for @{$jar->find(Mojo::URL->new('http://example.com/foo'))};

prepare

$jar->prepare(Mojo::Transaction::HTTP->new);

为“事务”(如Mojo::Transaction::HTTP)中的Request对象准备请求时需要用到的Cookie。

上一篇下一篇

猜你喜欢

热点阅读