File Coverage

blib/lib/Mojo/Weixin/Model/Remote/_webwxoplog_markname.pm
Criterion Covered Total %
statement 0 10 0.0
branch 0 4 0.0
condition 0 2 0.0
subroutine 0 1 0.0
pod n/a
total 0 17 0.0


line stmt bran cond sub pod time code
1             sub Mojo::Weixin::_webwxoplog_markname {
2 0     0     my $self = shift;
3 0           my $id = shift;
4 0           my $markname = shift;
5 0           my $api = 'https://' .$self->domain . '/cgi-bin/mmwebwx-bin/webwxoplog';
6 0           my @query_string = (
7             pass_ticket => $self->url_escape($self->pass_ticket),
8             );
9             #push @query_string,(pass_ticket => url_escape($self->pass_ticket)) if $self->pass_ticket;
10 0   0       my $post = {
11             BaseRequest => {
12             Uin => $self->wxuin,
13             Sid => $self->wxsid,
14             Skey => $self->skey,
15             DeviceID => $self->deviceid,
16             },
17             CmdId => 2,
18             RemarkName => $markname // "",
19             UserName => $id,
20             };
21              
22 0           my $json = $self->http_post($self->gen_url($api,@query_string),{json=>1,Referer=>'https://' . $self->domain . '/'},json=>$post);
23 0 0         return if not defined $json;
24 0 0         return if $json->{BaseResponse}{Ret}!=0;
25 0           return 1;
26             }
27             1;
28