| 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)
|