| line |
true |
false |
branch |
|
24
|
0 |
8 |
if (@_) { } |
|
26
|
0 |
0 |
unless $p =~ /^[0-9]+$/ and $p < 49152 |
|
34
|
0 |
8 |
if _check_port($port) |
|
35
|
0 |
8 |
$^O eq 'MSWin32' ? : |
|
42
|
8 |
0 |
if $sock |
|
50
|
0 |
0 |
unless exists $args{$k} |
|
68
|
0 |
8 |
if ($remote) { } |
|
82
|
0 |
0 |
if _check_port($port) |
|
93
|
0 |
0 |
@_ == 1 ? : |
|
94
|
0 |
0 |
unless exists $args{'code'} |
|
100
|
0 |
0 |
unless exists $$self{'port'} |
|
101
|
0 |
0 |
if $$self{'auto_start'} |
|
111
|
0 |
0 |
if (my $pid = fork) { } |
|
|
0 |
0 |
elsif ($pid == 0) { } |
|
120
|
0 |
0 |
if (kill 0, $$self{'_my_pid'}) |
|
132
|
0 |
0 |
unless defined $$self{'pid'} |
|
133
|
0 |
0 |
unless $$self{'_my_pid'} == $$ |
|
144
|
0 |
0 |
if $^O eq 'MSWin32' |
|
148
|
0 |
0 |
if $^O eq 'MSWin32' |
|
154
|
0 |
0 |
if ($^O ne 'MSWin32') |
|
155
|
0 |
0 |
if (POSIX::WIFSIGNALED($?)) |
|
157
|
0 |
0 |
if ($signame =~ /^(ABRT|PIPE)$/) |
|
162
|
0 |
0 |
if ($kid == 0 or $kid == -1) |