| line |
true |
false |
branch |
|
337
|
0 |
1 |
unless $uin or $uin = $ENV{'ICQ_UIN'} |
|
338
|
0 |
1 |
unless $password or $password = $ENV{'ICQ_PASS'} |
|
339
|
0 |
1 |
unless $server or $server = $ENV{'ICQ_SERVER'} |
|
340
|
1 |
0 |
unless $port or $port = $ENV{'ICQ_PORT'} |
|
359
|
0 |
1 |
unless $$self{'_socket'} = 'IO::Socket::INET'->new('Proto', 'udp', 'PeerAddr', $$self{'_server'}, 'PeerPort', $$self{'_port'}) |
|
523
|
0 |
0 |
exists $Net::ICQ::srv_codes{$command} ? : |
|
527
|
0 |
0 |
if $$self{'_debug'} |
|
553
|
0 |
0 |
if exists $Net::ICQ::cmd_codes{$command} |
|
1411
|
0 |
0 |
if ($$self{'_debug'}) |
|
1418
|
0 |
0 |
if ($$event{'is_ack'}) { } |
|
1425
|
0 |
0 |
if ($seq == $$event{'seq_num_1'}) |
|
1430
|
0 |
0 |
if ($not_in_array) |
|
1434
|
0 |
0 |
if (@{$$self{'_seen_seq'};} > 20) |
|
1454
|
0 |
0 |
if $$self{'_debug'} |
|
1458
|
0 |
0 |
if (defined $$self{'_events_outgoing'}[0] and $$_{'seq_num_1'} == $$self{'_events_outgoing'}[0]{'seq_num_1'}) |
|
1494
|
0 |
0 |
unless ($$_{'is_multi'}) |
|
1514
|
0 |
0 |
if ($$self{'_debug'}) |
|
1540
|
0 |
0 |
if ($$self{'_last_keepalive'} + 120 < $now) |
|
1543
|
0 |
0 |
if $$self{'_debug'} |
|
1559
|
0 |
0 |
if (defined $$self{'_events_outgoing'}[0] and $$self{'_events_outgoing'}[0]{'send_last'} + 10 <= time) |
|
1562
|
0 |
0 |
if ($$self{'_events_outgoing'}[0]{'send_count'} >= 6) { } |
|
1568
|
0 |
0 |
if $$self{'_debug'} |
|
1588
|
0 |
0 |
if (exists $$self{'_handlers'}{$$_{'command'}}) |
|
1590
|
0 |
0 |
if exists $Net::ICQ::_parsers{$$_{'command'}} |
|
1612
|
0 |
0 |
if $$self{'_debug'} |
|
1622
|
0 |
0 |
if ($$self{'_events_outgoing'}[0] and $$self{'_events_outgoing'}[0]{'send_now'}) |
|
1632
|
0 |
0 |
if $$self{'_debug'} |
|
1652
|
0 |
0 |
if (not $priority) { } |
|
1660
|
0 |
0 |
if (not defined $$self{'_events_outgoing'}[0] or defined $$self{'_events_outgoing'}[0] and $$self{'_events_outgoing'}[0]{'send_count'} == 0) { } |
|
1834
|
0 |
0 |
if (_bytes_to_int($packet, 0, 2) == 3) |
|
1840
|
0 |
0 |
if (_bytes_to_int($packet, 3, 4) != $$self{'_session_id'}) |
|
1841
|
0 |
0 |
if $$self{'_debug'} |
|
1844
|
0 |
0 |
if (_bytes_to_int($packet, 13, 4) != $$self{'_uin'}) |
|
1845
|
0 |
0 |
if $$self{'_debug'} |
|
1854
|
0 |
0 |
if $$event{'command'} == 10 |
|
1855
|
0 |
0 |
if $$event{'command'} == 530 |
|
1903
|
0 |
0 |
defined $string ? : |
|
1906
|
0 |
0 |
if $add_zero |
|
1949
|
0 |
0 |
$$array[$i] ? : |
|
1970
|
0 |
0 |
if ($_ == 254) { } |