| line |
true |
false |
branch |
|
78
|
0 |
0 |
unless (defined &$func) |
|
82
|
0 |
0 |
unless $pkg =~ s/::[^:]+$//u |
|
85
|
0 |
0 |
unless (eval "require $pkg; 1") |
|
88
|
0 |
0 |
unless $error =~ /^Can't locate .*.pm in \@INC \(/u |
|
162
|
0 |
1 |
$ENV{'PERL_ANYEVENT_MP_TRACE'} ? : |
|
190
|
0 |
0 |
unless $PORT{shift()} |
|
196
|
0 |
0 |
unless ($NODE{$_[0]}) |
|
199
|
0 |
0 |
unless length $node |
|
237
|
0 |
0 |
if $nodeid ne $NODE |
|
271
|
0 |
0 |
unless length $portid |
|
294
|
0 |
0 |
$_[0] eq $NODE || +($NODE{$_[0]} || (return))->{'transport'} ? : |
|
342
|
0 |
3 |
if defined wantarray |
|
347
|
0 |
0 |
$up ? : |
|
350
|
0 |
0 |
unless eval {
do {
&$cb($node->{'id'}, $up, @reason);
1
}
} |
|
361
|
0 |
0 |
unless delete $PORT{$port} |
|
365
|
0 |
0 |
unless my $mon = delete $LMON{$port} or not @_ |
|
374
|
0 |
0 |
unless exists $PORT{$_[1]} |
|
381
|
0 |
0 |
if exists $LMON{$_[1]} |
|
385
|
0 |
0 |
if $SECURE |
|
479
|
0 |
0 |
unless my($host, $port) = &AnyEvent::Socket::parse_hostport($seed) |
|
494
|
0 |
0 |
if ($_[0]{'remote_node'} eq $NODE) { } |
|
517
|
0 |
0 |
if (@seeds) { } |
|
524
|
0 |
0 |
if $SEED_RETRY > $AnyEvent::MP::Kernel::CONFIG->{'monitor_timeout'} |
|
591
|
0 |
0 |
if $KEEPALIVE_RETRY > $AnyEvent::MP::Kernel::CONFIG->{'monitor_timeout'} |
|
602
|
0 |
0 |
if $KEEPALIVE{$_[0]}++ |
|
604
|
0 |
0 |
if &node_is_up($_[0]) |
|
610
|
0 |
0 |
if --$KEEPALIVE{$_[0]} |
|
615
|
0 |
0 |
unless %KEEPALIVE_DOWN |
|
686
|
0 |
0 |
if exists $GLOBAL_REQ{$id} |
|
690
|
0 |
0 |
if $MASTER |
|
738
|
0 |
0 |
if ($_[0] eq $MASTER and not $_[1]) |
|
756
|
0 |
0 |
if (&node_is_up($_)) |
|
763
|
0 |
0 |
unless $_[1] |
|
764
|
0 |
0 |
unless $NODE_SEED{$_[0]} |
|
785
|
0 |
0 |
ref $_[0] || ref $_[1] ? : |
|
798
|
0 |
0 |
unless @del |
|
801
|
0 |
0 |
if defined $MASTER |
|
816
|
0 |
0 |
unless (exists $LOCAL_DB{$family}{$subkey} and &sv_eq($LOCAL_DB{$family}{$subkey}, $_[2])) |
|
818
|
0 |
0 |
if defined $MASTER |
|
825
|
0 |
0 |
if defined wantarray |
|
852
|
0 |
0 |
if (my $db = $MON_DB{$family}) { } |
|
858
|
0 |
0 |
unless exists $LOCAL_MON{$family}{$cb + 0} |
|
876
|
0 |
0 |
unless (%$mon) |
|
880
|
0 |
0 |
if $MASTER |
|
887
|
0 |
0 |
if defined wantarray |
|
955
|
0 |
0 |
unless $seen{$_->[1]}++ |
|
964
|
0 |
0 |
length $t ? : |
|
|
0 |
0 |
if $t =~ /^\d*$/u |
|
967
|
0 |
0 |
unless my($host, $port) = &AnyEvent::Socket::parse_hostport($t, 0) |
|
970
|
0 |
0 |
if $port eq '*' |
|
972
|
0 |
0 |
if ($host eq '*') { } |
|
987
|
0 |
0 |
if /^\x7f/u |
|
992
|
0 |
0 |
unless /^[\x20-\x3f\xfc\xfd]/u |
|
1009
|
0 |
0 |
unless pipe my $r, my $w |
|
1012
|
0 |
0 |
if (fork eq 0) { } |
|
1059
|
0 |
1 |
if defined wantarray |
|
1066
|
0 |
0 |
if @_ & 1 |
|
1071
|
0 |
0 |
unless defined $profile |
|
1078
|
0 |
0 |
exists $AnyEvent::MP::Kernel::CONFIG->{'nodeid'} ? : |
|
1080
|
0 |
0 |
unless $node |
|
1088
|
0 |
0 |
if ($NODE =~ s[(?:(?<=/)$|%u)][$RUNIQ]gu) |
|
1108
|
0 |
0 |
unless my($host, $port) = &AnyEvent::Socket::parse_hostport($bind) |
|
1145
|
0 |
0 |
if (ref $_) { } |
|
|
0 |
0 |
elsif (s/::$//u) { } |
|
1150
|
0 |
0 |
if $@ |
|
1157
|
0 |
0 |
if $@ |