| line |
true |
false |
branch |
|
30
|
0 |
0 |
@_ == 1 ? : |
|
39
|
0 |
0 |
ref $_[0] ? : |
|
43
|
0 |
0 |
if ($self->establish_smsc_connection) { } |
|
45
|
0 |
0 |
if ($$self{'server'}{'user'} and $$self{'server'}{'password'}) |
|
46
|
0 |
0 |
$self->login ? : |
|
49
|
0 |
0 |
if defined $$self{'server'}{'bypass_auth'} and $$self{'server'}{'bypass_auth'} |
|
62
|
0 |
0 |
defined $$self{'server'}{'src_addr'} ? : |
|
|
0 |
0 |
defined $$self{'server'}{'src_port'} ? : |
|
|
0 |
0 |
unless $$self{'server'}{'socket'} = 'IO::Socket::INET'->new('LocalAddr', defined $$self{'server'}{'src_addr'} ? $$self{'server'}{'src_addr'} : '', 'LocalPort', defined $$self{'server'}{'src_port'} ? $$self{'server'}{'src_port'} : 0, 'PeerAddr', $$self{'server'}{'smsc_host'}, 'PeerPort', $$self{'server'}{'smsc_port'}, 'Proto', 'tcp', 'Reuse', 1) |
|
85
|
0 |
0 |
if (defined $ucp_login) { } |
|
91
|
0 |
0 |
if $e_num |
|
104
|
0 |
0 |
if (defined $$self{'server'}{'log_file'}) { } |
|
105
|
0 |
0 |
if (open LOG, ">>$$self{'server'}{'log_file'}") { } |
|
111
|
0 |
0 |
if defined $$self{'server'}{'debug'} and $$self{'server'}{'debug'} |
|
121
|
0 |
0 |
if ($pid = fork) { } |
|
|
0 |
0 |
elsif (defined $pid) { } |
|
144
|
0 |
0 |
if (exists $$self{'server'}{'send_hook_time'} and $$self{'server'}{'send_hook_time'} =~ /\d+/) |
|
149
|
0 |
0 |
if ($$self{'server'}{'alert_time'} <= $$self{'server'}{'alert_wait'}) |
|
169
|
0 |
0 |
if $Net::UCP::Client::childpid |
|
199
|
0 |
0 |
if ($self->control_checksum($ref_mes)) |
|
203
|
0 |
0 |
if ($$ref_mes{'ot'} eq '01') { } |
|
|
0 |
0 |
elsif ($$ref_mes{'ot'} eq '02') { } |
|
|
0 |
0 |
elsif ($$ref_mes{'ot'} eq '31') { } |
|
|
0 |
0 |
elsif ($$ref_mes{'ot'} eq '51') { } |
|
|
0 |
0 |
elsif ($$ref_mes{'ot'} eq '52') { } |
|
|
0 |
0 |
elsif ($$ref_mes{'ot'} eq '53') { } |
|
226
|
0 |
0 |
$$mes{'my_checksum'} eq $$mes{'checksum'} ? : |
|
233
|
0 |
0 |
defined $adc ? : |
|
|
0 |
0 |
defined $pid ? : |
|
246
|
0 |
0 |
if (defined $$self{'ucp_stuff'}) |
|
258
|
0 |
0 |
if (defined $ucp_string) { } |