| line |
true |
false |
branch |
|
58
|
2 |
0 |
unless (exists $args{'Listen'}) |
|
59
|
0 |
2 |
unless (exists $args{'Port'}) |
|
62
|
2 |
0 |
if (not exists $args{'UnixSocket'}) { } |
|
67
|
2 |
0 |
if (not exists $args{'MultiHomed'} || exists $args{'BindTo'}) { } |
|
|
0 |
0 |
elsif (exists $args{'BindTo'}) { } |
|
87
|
0 |
2 |
unless CORE::socket $$self{'sock'}, $args{'Domain'}, 1, getprotobyname 'tcp' |
|
91
|
0 |
2 |
if ($args{'Domain'} == 1) { } |
|
92
|
0 |
0 |
if (-e $args{'UnixSocket'}) |
|
101
|
0 |
2 |
unless bind $$self{'sock'}, $$self{'sockaddr'} |
|
104
|
0 |
2 |
unless listen $$self{'sock'}, $args{'Listen'} |
|
114
|
0 |
2 |
if $_[0] =~ /\D/ or length $_[0] < 7 |
|
117
|
2 |
0 |
unless $_[1] |
|
156
|
0 |
0 |
unless defined $remote_client |
|
178
|
1 |
0 |
if $_[0]->opened |
|
240
|
0 |
3 |
unless exists $_[0]{'CB'}{$_[1]} |
|
242
|
0 |
3 |
if ref $_[2] ne 'CODE' |
|
268
|
0 |
0 |
if length $_[1] != 4 |
|
270
|
0 |
0 |
if ref $_[2] ne 'CODE' |
|
290
|
0 |
0 |
if (defined $_[2]) { } |
|
321
|
0 |
1 |
if ($$self{'Timeout'}) |
|
344
|
0 |
15 |
if (length $user_cmd != 4) |
|
357
|
0 |
15 |
if (exists $$self{'disabled'}{$user_cmd}) { } |
|
|
0 |
15 |
elsif (exists $$self{'custom'}{$user_cmd}) { } |
|
|
2 |
13 |
elsif ($user_cmd eq 'PAGE') { } |
|
|
1 |
12 |
elsif ($user_cmd =~ /(MESS|SUBJ)/) { } |
|
|
1 |
11 |
elsif ($user_cmd eq 'RESE') { } |
|
|
1 |
10 |
elsif ($user_cmd eq 'SEND') { } |
|
|
1 |
9 |
elsif ($user_cmd eq 'QUIT') { } |
|
|
0 |
9 |
elsif ($user_cmd eq 'HELP') { } |
|
|
1 |
8 |
elsif ($user_cmd eq 'DATA') { } |
|
|
1 |
7 |
elsif ($user_cmd eq 'ALER') { } |
|
|
1 |
6 |
elsif ($user_cmd eq 'HOLD') { } |
|
|
1 |
5 |
elsif ($user_cmd eq '2WAY') { } |
|
|
1 |
4 |
elsif ($user_cmd eq 'PING') { } |
|
|
4 |
0 |
elsif ($user_cmd eq 'MCRE') { } |
|
366
|
0 |
0 |
unless $cont |
|
376
|
2 |
0 |
if ($valid_pgr_id and $valid_pin) { } |
|
391
|
0 |
1 |
if ($key and $key eq 'MESS' and defined $$page{'mess'}) |
|
396
|
0 |
1 |
if (not defined $cmd[0] or $cmd[0] eq '') |
|
416
|
0 |
1 |
if (@pgrs == 0) |
|
421
|
0 |
1 |
unless (exists $$page{'mess'}) |
|
429
|
0 |
1 |
unless (exists $$page{'alert'}) |
|
430
|
0 |
1 |
unless (exists $$page{'hold'}) |
|
436
|
0 |
1 |
if ($res and exists $$page{'twoway'}) { } |
|
|
1 |
0 |
elsif ($res) { } |
|
476
|
0 |
1 |
if (not defined $buffer && length $buffer) { } |
|
492
|
1 |
0 |
if (defined $cmd[0] and $cmd[0] == 1 || $cmd[0] == 0) { } |
|
506
|
1 |
0 |
if (defined $cmd[0] and not $cmd[0] =~ /[^0-9]/ and length $cmd[0] == 12 || length $cmd[0] == 14) { } |
|
509
|
1 |
0 |
if ($cmd[1] =~ /([+-]\d+)/) |
|
523
|
0 |
1 |
if (exists $$page{'mess'} or @pgrs > 0) |
|
542
|
0 |
4 |
if (not exists $$page{'twoway'}) { } |
|
|
4 |
0 |
elsif (not $cmd[0] =~ /[^0-9]/ and length $cmd[0] < 3 and length $cmd[1] >= 1 and length $cmd[1] < 16) { } |
|
548
|
0 |
4 |
if (exists $$page{'responses'}{$cmd[0]}) |
|
582
|
0 |
14 |
if ($$self{'MaxErrors'} and $errors >= $$self{'MaxErrors'}) |
|
587
|
0 |
14 |
if ($$self{'Timeout'}) |
|
591
|
0 |
1 |
if ($$self{'Timeout'}) |
|
594
|
1 |
0 |
if ($client->connected) |
|
617
|
2 |
0 |
if ($count_arg) |
|
622
|
0 |
2 |
unless pipe $rp, $wp |
|
632
|
0 |
1 |
if (my $href = delete $$page{'responses'}) |
|
640
|
0 |
4 |
unless (defined $v) |
|
643
|
0 |
1 |
unless (defined $$pgr[1]) |
|
655
|
1 |
1 |
if ($pid) { } |
|
657
|
1 |
0 |
wantarray ? : |
|
668
|
0 |
0 |
if ($pid < 1) |
|
680
|
0 |
1 |
if ($pid) |