File Coverage

blib/lib/Mojo/Webqq/Model/Remote/_get_group_list_info_ext.pm

Criterion	Covered	Total	%
statement	3	27	11.1
branch	0	10	0.0
condition			n/a
subroutine	1	4	25.0
pod			n/a
total	4	41	9.7

use strict;
sub Mojo::Webqq::Model::_get_group_list_info_ext {
    my $self = shift;
    my $callback = shift;
    my $api = 'http://qun.qq.com/cgi-bin/qun_mgr/get_group_list';
    my $is_blocking = ref $callback eq "CODE"?0:1;
    my $handle = sub {
        my $json = shift;
        return if not defined $json;
        return if $json->{ec}!=0;
        #{"ec":0,"join":[{"gc":1299322,"gn":"perl技术","owner":4866832},{"gc":144539789,"gn":"PERL学习交流","owner":419902730},{"gc":213925424,"gn":"PERL","owner":913166583}],"manage":[{"gc":390179723,"gn":"IT狂人","owner":308165330}]}
        my @result;
        for my $t (qw(join manage create)){
            for(@{$json->{$t}}){
                my $group = {};
                $group->{name} = $self->xmlescape_parse($_->{gn});
                $group->{uid} = $_->{gc};
                $group->{owner_uid} = $_->{owner};
                $group->{role} = $t eq "join"?"attend":$t;
                push @result,$group;
            }
        }
        return \@result;
    };
    if($is_blocking){
        return $handle->($self->http_post($api,{Referer=>"http://qun.qq.com/member.html",json=>1},form=>{bkn=>$self->get_csrf_token},));
    }
    else{
        $self->http_post($api,{Referer=>"http://qun.qq.com/member.html",json=>1},form=>{bkn=>$self->get_csrf_token},sub{
            my $json = shift;
            $callback->( $handle->($json) );
        });
    }
};
1;