blib/lib/Webqq/Client/Method/_cookie_proxy.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 0 | 7 | 0.0 |
branch | 0 | 2 | 0.0 |
condition | n/a | ||
subroutine | 0 | 1 | 0.0 |
pod | n/a | ||
total | 0 | 10 | 0.0 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | sub Webqq::Client::_cookie_proxy { | ||||||
2 | 0 | 0 | my $self = shift; | ||||
3 | 0 | 0 | return 1 if $self->{type} ne 'smartqq'; | ||||
4 | 0 | my $p_skey = $self->search_cookie("p_skey"); | |||||
5 | 0 | my $p_uin = $self->search_cookie("p_uin"); | |||||
6 | 0 | $self->{cookie_jar}->set_cookie(0,"p_skey",$p_skey,"/","w.qq.com"); | |||||
7 | 0 | $self->{cookie_jar}->set_cookie(0,"p_uin",$p_skey,"/","w.qq.com"); | |||||
8 | 0 | return 1; | |||||
9 | }; | ||||||
10 | 1; |