| line |
true |
false |
branch |
|
14
|
0 |
0 |
if (my $n = &blessed($self->{$_})) { } |
|
|
0 |
0 |
elsif ($_ eq 'member' and ref $self->{$_} eq 'ARRAY') { } |
|
33
|
0 |
0 |
unless $self->content |
|
36
|
0 |
0 |
if ($self->class eq 'recv') { } |
|
|
0 |
0 |
elsif ($self->class eq 'send') { } |
|
41
|
0 |
0 |
if ($self->type eq 'group') { } |
|
|
0 |
0 |
elsif ($self->type eq 'discuss') { } |
|
|
0 |
0 |
elsif ($self->type =~ /^friend_message|sess_message$/) { } |
|
54
|
0 |
0 |
unless $displayname |
|
62
|
0 |
0 |
if substr($key, 0, 1) eq '_' |
|
63
|
0 |
0 |
if ($key eq 'sender') { } |
|
|
0 |
0 |
elsif ($key eq 'receiver') { } |
|
|
0 |
0 |
elsif ($key eq 'group') { } |
|
|
0 |
0 |
elsif ($key eq 'discuss') { } |
|
|
0 |
0 |
elsif (ref $self->{$key} eq '') { } |
|
87
|
0 |
0 |
if ref $self->raw_content ne 'ARRAY' |
|
93
|
0 |
0 |
if ref $self->raw_content ne 'ARRAY' |
|
94
|
0 |
0 |
if (wantarray) { } |
|
95
|
0 |
0 |
unless $_->{'type'} eq 'face' |
|
98
|
0 |
0 |
unless $_->{'type'} eq 'face' |
|
105
|
0 |
0 |
if ref $cb ne 'CODE' |
|
106
|
0 |
0 |
if ref $self->raw_content ne 'ARRAY' |
|
107
|
0 |
0 |
if $self->msg_class ne 'recv' |
|
108
|
0 |
0 |
if $self->type eq 'discuss_message' |
|
109
|
0 |
0 |
unless $_->{'type'} eq 'cface' |
|
110
|
0 |
0 |
if ($_->{'type'} eq 'cface') { } |
|
|
0 |
0 |
elsif ($_->{'type'} eq 'offpic') { } |
|
111
|
0 |
0 |
unless exists $_->{'server'} |
|
112
|
0 |
0 |
unless exists $_->{'file_id'} |
|
113
|
0 |
0 |
unless exists $_->{'name'} |
|
115
|
0 |
0 |
unless defined $port |
|
132
|
0 |
0 |
$self->code == 0 ? : |
|
138
|
0 |
0 |
if (defined $json) { } |
|
139
|
0 |
0 |
if (exists $json->{'errCode'}) { } |
|
|
0 |
0 |
elsif (exists $json->{'retcode'}) { } |
|
140
|
0 |
0 |
if ($json->{'errCode'} == 0 and exists $json->{'msg'} and $json->{'msg'} eq 'send ok') { } |
|
|
0 |
0 |
elsif (exists $json->{'errMsg'} and $json->{'errMsg'} eq 'ERROR') { } |
|
151
|
0 |
0 |
if ($json->{'retcode'} == 0) { } |
|
|
0 |
0 |
elsif (ref $self->client->ignore_send_retcode eq 'ARRAY' and &first(sub {
$json->{'retcode'} == $_;
}
, @{$self->client->ignore_send_retcode;})) { } |