| line |
true |
false |
branch |
|
16
|
0 |
0 |
unless $opts{'-lua'} or $opts{'-make_lua'} |
|
17
|
0 |
0 |
if $opts{'-lua'} |
|
21
|
0 |
0 |
if ($self->{'-dir'}) { } |
|
22
|
0 |
0 |
unless -d $self->{'-dir'} |
|
30
|
0 |
0 |
if (-r $self->{'-log'}) |
|
44
|
0 |
0 |
if ($self->{'pid'} = fork) |
|
47
|
0 |
0 |
unless $self->{'-port'} |
|
52
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
|
0 |
0 |
unless 'IO::Socket::INET'->new('PeerHost', '127.0.0.1', 'PeerPort', $self->{'-port'}, 'Proto', 'tcp', $^O eq 'MSWin32' ? () : ('ReuseAddr', 1)) |
|
55
|
0 |
0 |
if $self->log =~ /entering the event loop/ |
|
67
|
0 |
0 |
unless ($self->{'-lua'}) |
|
70
|
0 |
0 |
unless open my $fh, '>:raw', $self->{'-lua'} |
|
72
|
0 |
0 |
if utf8::is_utf8($lua) |
|
78
|
0 |
0 |
if ($self->port) |
|
98
|
0 |
0 |
unless -r $self->{'-log'} |
|
108
|
0 |
0 |
unless $self->{'-clean'} |
|
118
|
0 |
0 |
unless $self->pid |
|
120
|
0 |
0 |
if (CORE::kill $sig, $self->pid) { } |