| line |
true |
false |
branch |
|
25
|
0 |
0 |
unless (defined $data and length $data > 8) |
|
26
|
0 |
0 |
if $$oicq{'Debug'} |
|
39
|
0 |
0 |
if ($cmd eq 'login' or $cmd =~ /^reg_new_id_/) |
|
43
|
0 |
0 |
if ($self->process) |
|
47
|
0 |
0 |
if $@ |
|
48
|
0 |
0 |
unless defined $plain |
|
50
|
0 |
0 |
if $$oicq{'Debug'} |
|
63
|
0 |
0 |
unless defined $field[0] |
|
65
|
0 |
0 |
if $field[0] =~ /^-/ |
|
68
|
0 |
0 |
if $field[0] == $$oicq{'Id'} |
|
71
|
0 |
0 |
unless defined $$oicq{'Info'}{$field[0]} |
|
82
|
0 |
0 |
if (defined $dat) { } |
|
124
|
0 |
0 |
if ($srcid != 10000 and not defined $$oicq{'Info'}{$srcid}) |
|
128
|
0 |
0 |
if (grep {$msg_type == $_;} 9, 10, 132, 133) { } |
|
|
0 |
0 |
elsif ($msg_type == 32 or $msg_type == 43) { } |
|
138
|
0 |
0 |
if ($subtype == 129) { } |
|
|
0 |
0 |
elsif ($subtype == 133) { } |
|
|
0 |
0 |
elsif ($subtype == 53) { } |
|
|
0 |
0 |
elsif ($subtype == 11) { } |
|
142
|
0 |
0 |
if ($plain =~ /([^\x1f]+?)\x1f(\d+) \xd7\xd6\xbd\xda$/s) { } |
|
|
0 |
0 |
elsif ($plain =~ /(\xd3\xef\xd2\xf4\xc1\xc4\xcc\xec)/s) { } |
|
|
0 |
0 |
elsif ($plain =~ /(\xd3\xef\xd2\xf4\xca\xd3\xc6\xb5\xc1\xc4\xcc\xec)/s) { } |
|
178
|
0 |
0 |
if ($mesg) { } |
|
|
0 |
0 |
elsif ($msg_type == 24) { } |
|
|
0 |
0 |
elsif ($msg_type == 48) { } |
|
|
0 |
0 |
elsif ($msg_type == 52) { } |
|
|
0 |
0 |
elsif ($msg_type == 65) { } |
|
|
0 |
0 |
elsif ($msg_type == 76) { } |
|
|
0 |
0 |
elsif ($$oicq{'Debug'}) { } |
|
181
|
0 |
0 |
if ($tail =~ /^ \0/) |
|
190
|
0 |
0 |
if ($$oicq{'LogChat'}) |
|
191
|
0 |
0 |
exists $$self{'GrpId'} ? : |
|
203
|
0 |
0 |
if (length $plain <= 30) { } |
|
223
|
0 |
0 |
if (defined $$oicq{'Socket'} and defined $mesg and not $$self{'Ignore'}) |
|
243
|
0 |
0 |
unless defined $$info{$fid} |
|
246
|
0 |
0 |
if $addr =~ /[1-9]/ |
|
261
|
0 |
0 |
if (defined $$oicq{'Socket'}) |
|
265
|
0 |
0 |
if ($code eq '02' or $code eq '41') { } |
|
|
0 |
0 |
elsif ($code eq '03') { } |
|
|
0 |
0 |
elsif ($code eq '04') { } |
|
|
0 |
0 |
elsif ($srcid == 10000) { } |
|
290
|
0 |
0 |
unless defined $f[3] |
|
312
|
0 |
0 |
unless ref($e) =~ /Client/ |
|
313
|
0 |
0 |
if ($e->seq eq $seq) |
|
318
|
0 |
0 |
unless defined $event |
|
330
|
0 |
0 |
if ($reply =~ /^\d+$/) |
|
331
|
0 |
0 |
if ($reply > 0) { } |
|
|
0 |
0 |
elsif ($reply == 0) { } |
|
365
|
0 |
0 |
unless defined $$oicq{'Info'}{$fid} |
|
374
|
0 |
0 |
if ($flag ne "\377\377") |
|
390
|
0 |
0 |
unless defined $$oicq{'Info'}{$srcid} |
|
392
|
0 |
0 |
if ($addr =~ /[1-9]/) |
|
407
|
0 |
0 |
if ($reply ne '00') |
|
411
|
0 |
0 |
if ($sub_cmd eq '06') |
|
427
|
0 |
0 |
if ($sub_cmd eq '04') |
|
443
|
0 |
0 |
if ($sub_cmd eq '0b') |
|
445
|
0 |
0 |
length $plain >= 11 ? : |
|
457
|
0 |
0 |
unless (unpack('H4', $plain) eq '0400' and length $plain > 18) |