File Coverage

blib/lib/Mojo/Webqq/Message/Remote/_get_sess_sig.pm

Criterion	Covered	Total	%
statement	0	13	0.0
branch	0	8	0.0
condition			n/a
subroutine	0	1	0.0
pod			n/a
total	0	22	0.0

sub Mojo::Webqq::Message::_get_sess_sig {
    my $self = shift;
    my($id,$to_uin,$service_type,) = @_;
    my $cache_data = $self->sess_sig_cache->retrieve("$id|$to_uin|$service_type");
    return $cache_data if defined $cache_data;
    my $api_url = 'http://d1.web2.qq.com/channel/get_c2cmsg_sig2';
    my @query_string  = (
        id              =>  $id,
        to_uin          =>  $to_uin,
        service_type    =>  $service_type,
        clientid        =>  $self->clientid,
        psessionid      =>  $self->psessionid,
        t               =>  time,
    );
    my $headers = {Referer=>'http://d1.web2.qq.com/proxy.html?v=20151105001&callback=1&id=2',json=>1};
    my $json = $self->http_get($self->gen_url($api_url,@query_string),$headers);
    return undef unless defined $json;
    return undef if $json->{retcode}!=0;
    return undef if $json->{result}{value} eq "";
    $self->sess_sig_cache->store("$id|$to_uin|$service_type",$json->{result}{value},300);
    return $json->{result}{value} ;
}
1;