| line |
true |
false |
branch |
|
23
|
2 |
29 |
unless exists $args{$k} |
|
38
|
13 |
3 |
if (@_ and ref $_[0] eq 'HASH') { } |
|
|
1 |
2 |
elsif (@_ == 3) { } |
|
49
|
3 |
13 |
unless defined $host |
|
53
|
0 |
16 |
unless Net::EmptyPort::wait_port({'host', $host, 'port', $port, 'max_wait', $max_wait}) |
|
62
|
1 |
19 |
@_ == 1 ? : |
|
63
|
1 |
19 |
unless exists $args{'code'} |
|
71
|
1 |
18 |
if ($self->{'listen'}) { } |
|
75
|
0 |
1 |
unless $self->{'socket'} ||= Net::EmptyPort::listen_socket({'host', $self->{'host'}, 'proto', $self->{'proto'}}) |
|
82
|
17 |
2 |
if $self->{'auto_start'} |
|
92
|
0 |
17 |
unless defined $pid |
|
94
|
14 |
3 |
if ($pid) { } |
|
97
|
13 |
1 |
unless $self->{'socket'} |
|
102
|
1 |
1 |
if (kill 0, $self->{'_my_pid'}) |
|
112
|
5 |
14 |
unless defined $self->{'pid'} |
|
113
|
1 |
13 |
unless $self->{'_my_pid'} == $$ |
|
124
|
0 |
13 |
if $^O eq 'MSWin32' |
|
128
|
0 |
13 |
if $^O eq 'MSWin32' |
|
134
|
25 |
0 |
if ($^O ne 'MSWin32') |
|
135
|
11 |
14 |
if (POSIX::WIFSIGNALED($?)) |
|
137
|
1 |
10 |
if ($signame =~ /^(ABRT|PIPE)$/) |
|
142
|
13 |
12 |
if ($kid == 0 or $kid == -1) |