File Coverage

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

Criterion	Covered	Total	%
statement	3	11	27.2
branch	0	6	0.0
condition			n/a
subroutine	1	2	50.0
pod			n/a
total	4	19	21.0

use strict;
sub Mojo::Webqq::Model::_set_group_member_card{
    my $self = shift;
    my($uid,$qq,$card) = @_;
    my $api = "http://qinfo.clt.qq.com/cgi-bin/qun_info/set_group_card";
    my $form = length $card?{gc=>$uid,u=>$qq,name=>$card,bkn=>$self->get_csrf_token}:{gc=>$uid,u=>$qq,bkn=>$self->get_csrf_token};
    my $json = $self->http_post($api,{Referer=>"http://qinfo.clt.qq.com/member.html",json=>1},form=>$form);
    return if not defined $json;
    return if $json->{ec}!=0;
    return 1;
}
1;