File Coverage

blib/lib/Weixin/Client/Private/_update_friend.pm

Criterion	Covered	Total	%
statement	0	23	0.0
branch	0	10	0.0
condition			n/a
subroutine	0	1	0.0
pod			n/a
total	0	34	0.0

package Weixin::Client;
sub _update_friend{
    my $self = shift;
    my $api = "https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxgetcontact";
    my @query_string = (
        skey        =>  uri_escape($self->skey),
        pass_ticket =>  $self->pass_ticket,
        r           =>  $self->now(),
        skey        =>  uri_escape($self->skey),
        pass_ticket =>  $self->pass_ticket,
    );
    my $json = $self->http_post(gen_url($api,@query_string),("Content-Type"=>"application/json; charset=UTF-8"),Content=>"{}");
    return unless defined $json;
    my $d = $self->json_decode($json);
    return unless defined $d;
    return if $d->{BaseResponse}{Ret}!=0;
    return if $d->{MemberCount} == 0;
    my @friend_key = qw(HeadImgUrl NickName PYInitial PYQuanPin Alias Province City Sex Id Uin Signature DisplayName RemarkName RemarkPYInitial RemarkPYQuanPin);
    for my $m (@{$d->{MemberList}}){
        next if $m->{MemberCount}!=0;
        $m->{Id} = $m->{UserName};delete $m->{UserName};
        $m->{Sex} = code2sex($m->{Sex});
        my $friend = {};
        @{$friend}{@friend_key} =  map {$_=encode_utf8($_);$_} @{$m}{@friend_key};
        $self->add_friend($friend);
    }
}
1;