| line |
true |
false |
branch |
|
24
|
0 |
0 |
if (@_) { }
|
|
26
|
0 |
0 |
unless $p =~ /^[0-9]+$/ and $p < 49152
|
|
34
|
0 |
0 |
if _check_port($port)
|
|
35
|
0 |
0 |
$^O eq 'MSWin32' ? :
|
|
42
|
0 |
0 |
if $sock
|
|
50
|
0 |
0 |
unless exists $args{$k}
|
|
68
|
0 |
0 |
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)
|