File Coverage

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

Criterion	Covered	Total	%
statement	0	27	0.0
branch	0	18	0.0
condition			n/a
subroutine	0	3	0.0
pod			n/a
total	0	48	0.0

sub Mojo::Webqq::Model::_get_recent_info {
    my $self  = shift;
    my $callback = shift;
    my $api_url = 'http://d1.web2.qq.com/channel/get_recent_list2';
    my $headers = {
        Referer => 'http://d1.web2.qq.com/proxy.html?v=20151105001&callback=1&id=2',
        json    => 1,
    };

    my %r = (
        vfwebqq         =>  $self->vfwebqq,
        clientid        =>  $self->clientid,
        psessionid      =>  $self->psessionid,
    );
    my $is_blocking = ref $callback eq "CODE"?0:1;
    my $handle = sub{
        my $json = shift;
        return undef unless defined $json;
        return undef if $json->{retcode}!=0 ;
        my %type = (0 => 'friend',1 => 'group', 2 => 'discuss');
        my @recent;
        for(@{$json->{result}}){
            next unless exists $type{$_->{type}};
            $_->{type} = $type{$_->{type}};
            if($_->{type} eq "friend"){$_->{id} = delete $_->{uin};}
            elsif($_->{type} eq "group"){$_->{id} = delete $_->{uin};}
            elsif($_->{type} eq "discuss"){$_->{id} = delete $_->{uin};}
            push @recent,$_;
        }
        return @recent>0?\@recent:undef;
    };
    if($is_blocking){
        return $handle->( $self->http_post($api_url,$headers,form=>{r=>$self->to_json(\%r)},) );
    }
    else{
        $self->http_post($api_url,$headers,form=>{r=>$self->to_json(\%r)},sub{
            my $json = shift;
            $callback->( $handle->($json) );
        });
    }
}
1;