File Coverage

blib/lib/Mojo/Webqq/Model/Remote/_kick_group_member.pm
Criterion Covered Total %
statement 3 10 30.0
branch 0 4 0.0
condition n/a
subroutine 1 2 50.0
pod n/a
total 4 16 25.0


line stmt bran cond sub pod time code
1 1     1   7 use strict;
  1         4  
  1         130  
2             sub Mojo::Webqq::Model::_kick_group_member{
3 0     0     my $self = shift;
4 0           my($uid,@qq) = @_;
5 0           my $api = "http://qun.qq.com/cgi-bin/qun_mgr/delete_group_member";
6 0           my $json = $self->http_post($api,{Referer=>"http://qun.qq.com/member.html",json=>1},form=>{gc=>$uid,ul=>join("|",@qq),flag=>0,bkn=>$self->get_csrf_token});
7 0 0         return if not defined $json;
8 0 0         return if $json->{ec}!=0;
9 0           return 1;
10             }
11             1;