| line |
true |
false |
branch |
|
46
|
0 |
0 |
exists $$hash{'pidfile'} ? : |
|
55
|
0 |
0 |
unless exists $$hash{'server_name'} |
|
57
|
0 |
0 |
if (not exists $$hash{'local_port'}) { } |
|
58
|
0 |
0 |
exists $$hash{'delimiter'} ? : |
|
60
|
0 |
0 |
exists $$hash{'string_format'} ? : |
|
62
|
0 |
0 |
exists $$hash{'timeout'} ? : |
|
65
|
0 |
0 |
exists $$hash{'on_disconnected'} ? : |
|
67
|
0 |
0 |
exists $$hash{'on_recv_msg'} ? : |
|
68
|
0 |
0 |
exists $$hash{'read_buffer'} ? : |
|
70
|
0 |
0 |
exists $$hash{'on_disconnected_param'} ? : |
|
72
|
0 |
0 |
exists $$hash{'on_recv_msg_param'} ? : |
|
79
|
0 |
0 |
if (exists $$hash{'local_address'}) { } |
|
80
|
0 |
0 |
unless $server = 'IO::Socket::INET'->new('LocalAddr', $$hash{'local_address'}, 'LocalPort', $$hash{'local_port'}, 'Listen', 50, 'Proto', 'tcp', 'Reuse', 1, 'Blocking', 0) |
|
89
|
0 |
0 |
unless $server = 'IO::Socket::INET'->new('LocalPort', $$hash{'local_port'}, 'Listen', 50, 'Proto', 'tcp', 'Reuse', 1, 'Blocking', 0) |
|
102
|
0 |
0 |
exists $$hash{'delimiter'} ? : |
|
104
|
0 |
0 |
exists $$hash{'string_format'} ? : |
|
106
|
0 |
0 |
exists $$hash{'timeout'} ? : |
|
109
|
0 |
0 |
exists $$hash{'on_connected'} ? : |
|
111
|
0 |
0 |
exists $$hash{'on_disconnected'} ? : |
|
113
|
0 |
0 |
exists $$hash{'on_recv_msg'} ? : |
|
114
|
0 |
0 |
exists $$hash{'read_buffer'} ? : |
|
116
|
0 |
0 |
exists $$hash{'on_connected_param'} ? : |
|
118
|
0 |
0 |
exists $$hash{'on_disconnected_param'} ? : |
|
120
|
0 |
0 |
exists $$hash{'on_recv_msg_param'} ? : |
|
123
|
0 |
0 |
if (exists $$hash{'local_address'}) { } |
|
157
|
0 |
0 |
unless $flags = fcntl($socket, 3, 0) |
|
159
|
0 |
0 |
unless fcntl $socket, 4, $flags | 2048 |
|
194
|
0 |
0 |
if exists $map_server{$client} |
|
195
|
0 |
0 |
if exists $map_client{$client} |
|
197
|
0 |
0 |
if (exists $map_specific{$client->sockhost . ':' . $client->sockport}) { } |
|
255
|
0 |
0 |
unless length $outbuffer{$client} |
|
262
|
0 |
0 |
if (vec $rout, fileno $client, 1) |
|
269
|
0 |
0 |
if $@ |
|
271
|
0 |
0 |
unless (defined $rv) |
|
278
|
0 |
0 |
if ($rv == length $outbuffer{$client} or $! == 11) { } |
|
280
|
0 |
0 |
unless length $outbuffer{$client} |
|
284
|
0 |
0 |
if defined $rv |
|
285
|
0 |
0 |
unless length $outbuffer{$client} |
|
304
|
0 |
0 |
if exists $map_client{$client} |
|
307
|
0 |
0 |
if $client |
|
322
|
0 |
0 |
if exists $map_client{$client} |
|
327
|
0 |
0 |
if $client |
|
335
|
0 |
0 |
unless $client and $data |
|
359
|
0 |
0 |
unless $$self{'listen'}{$_}{'local_port'} |
|
365
|
0 |
0 |
unless open FILE, '>' . $$self{'pidfile'} |
|
376
|
0 |
0 |
if ($current_time != $this_time) |
|
378
|
0 |
0 |
if exists $map_server{$client} |
|
379
|
0 |
0 |
unless exists $alive{$client} |
|
381
|
0 |
0 |
if ($turn_timeout{$client} != -1) |
|
382
|
0 |
0 |
if ($turn_timeout{$client} <= 0) { } |
|
399
|
0 |
0 |
if exists $map_server{$client} |
|
400
|
0 |
0 |
unless exists $alive{$client} |
|
405
|
0 |
0 |
if ($this_time - $idle{$client} >= $$self{'listen'}{$server_name}{'timeout'}) |
|
414
|
0 |
0 |
if (exists $map_server{$client}) { } |
|
418
|
0 |
0 |
unless ($client) |
|
431
|
0 |
0 |
unless exists $alive{$client} |
|
438
|
0 |
0 |
unless (defined $rv and length $data) |
|
461
|
0 |
0 |
unless exists $alive{$client} |
|
466
|
0 |
0 |
unless exists $outbuffer{$client} |
|
471
|
0 |
0 |
if $@ |
|
473
|
0 |
0 |
unless (defined $rv) |
|
480
|
0 |
0 |
if ($rv == length $outbuffer{$client} or $! == 11) { } |
|
482
|
0 |
0 |
unless length $outbuffer{$client} |
|
486
|
0 |
0 |
if defined $rv |
|
487
|
0 |
0 |
unless length $outbuffer{$client} |
|
510
|
0 |
0 |
unless ($cronCounter % $_) |