File Coverage

blib/lib/Mojo/Webqq/Client/Remote/_cookie_proxy.pm

Criterion	Covered	Total	%
statement	0	7	0.0
branch	0	4	0.0
condition	0	3	0.0
subroutine	0	1	0.0
pod			n/a
total	0	15	0.0

sub Mojo::Webqq::Client::_cookie_proxy {
    my $self = shift;
    return 1 if $self->domain eq 'web2.qq.com';
    my $p_skey = $self->search_cookie("p_skey");
    my $p_uin = $self->search_cookie("p_uin");
    $self->ua->cookie_jar->add(
        Mojo::Cookie::Response->new(
            name    => "p_skey",
            value   => $p_skey,
            domain  => $self->domain,
            path    => "/",
        ),
        Mojo::Cookie::Response->new(
            name    => "p_uin",
            value   => $p_uin,
            domain  => $self->domain,
            path    => "/",
        ),
    ) if defined $p_skey and defined $p_uin;
    $self->save_cookie();
    return 1;
};
1;