File Coverage

blib/lib/Mojo/Weixin/Model/Remote/_webwxbatchgetcontact_group_member.pm

Criterion	Covered	Total	%
statement	6	28	21.4
branch	0	10	0.0
condition	0	4	0.0
subroutine	2	3	66.6
pod			n/a
total	8	45	17.7

use strict;
use Mojo::Weixin::Const qw(%KEY_MAP_GROUP_MEMBER);
sub Mojo::Weixin::_webwxbatchgetcontact_group_member{
    my $self  = shift;
    my $eid = shift // '';
    my @ids = @_;
    my @return;
    my $api = "https://".$self->domain . "/cgi-bin/mmwebwx-bin/webwxbatchgetcontact";

    while( my @id = splice(@ids,0,50) ){
        my @query_string = (
            type        =>  "ex",
            r           =>  $self->now(),
        );
        push @query_string,(pass_ticket =>  $self->pass_ticket) if $self->pass_ticket;
        my $post = {
            BaseRequest =>  {
                Uin         =>  $self->wxuin,
                DeviceID    =>  $self->deviceid,
                Sid         =>  $self->wxsid,
                Skey        =>  $self->skey,
            },
            Count       =>  @id+0,
            List        =>  [ map { {UserName=>$_,EncryChatRoomId=>$eid} } @id ],
        };
        my $json = $self->http_post($self->gen_url2($api,@query_string),{Referer=>'https://'.$self->domain . '/',json=>1},json=>$post);
        next unless defined $json;
        next if $json->{BaseResponse}{Ret}!=0;
        for my $e (@{$json->{ContactList}}){
            my $member = {};
            for(keys %KEY_MAP_GROUP_MEMBER){
                $member->{$_} = $e->{$KEY_MAP_GROUP_MEMBER{$_}} // "";
            }
            $member->{sex} = $self->code2sex($member->{sex});
            push @return,$member;
        }

    }
    return if @return ==0;
    return wantarray?@return:$return[0];
}

1;