| line |
true |
false |
branch |
|
24
|
0 |
2 |
unless exists $args{$k} |
|
39
|
2 |
0 |
if (@_ and ref $_[0] eq 'HASH') { } |
|
|
0 |
0 |
elsif (@_ == 3) { } |
|
52
|
2 |
4 |
if 'IO::Socket::UNIX'->new('Type', 1, 'Peer', $path) |
|
65
|
0 |
2 |
@_ == 1 ? : |
|
66
|
0 |
2 |
unless exists $args{'code'} |
|
73
|
2 |
0 |
unless (defined $self->{'path'}) |
|
78
|
2 |
0 |
if $self->{'auto_start'} |
|
88
|
0 |
2 |
unless defined $pid |
|
90
|
2 |
0 |
if ($pid) { } |
|
97
|
0 |
0 |
if (kill 0, $self->{'_my_pid'}) |
|
107
|
1 |
2 |
unless defined $self->{'pid'} |
|
108
|
0 |
2 |
unless $self->{'_my_pid'} == $$ |
|
115
|
2 |
2 |
if (POSIX::WIFSIGNALED($?)) |
|
117
|
0 |
2 |
if ($signame =~ /^(ABRT|PIPE)$/) |
|
121
|
2 |
2 |
if ($kid == 0 or $kid == -1) |