| line |
true |
false |
branch |
|
44
|
35 |
0 |
if ($AnyEvent::PROTOCOL{'ipv6'} and 10 and socket my $ipv6_socket, 10, 2, 0) { } |
|
64
|
70 |
0 |
if eval "Errno::$k ()" |
|
153
|
0 |
0 |
unless pipe $r, $w |
|
160
|
0 |
5 |
unless socketpair my $fh1, my $fh2, 1, 1, 0 |
|
228
|
0 |
0 |
unless $Storable::VERSION |
|
229
|
0 |
0 |
unless $POSIX::VERSION |
|
232
|
0 |
0 |
unless my $job = shift @fork_queue |
|
241
|
0 |
0 |
unless my($r, $w) = &portable_pipe() or $forks and last |
|
247
|
0 |
0 |
if ($pid != 0) { } |
|
|
0 |
0 |
elsif (defined $pid) { } |
|
|
0 |
0 |
elsif ($! != &Errno::EAGAIN and $! != &Errno::EWOULDBLOCK and $! != &Errno::ENOMEM or not $forks) { } |
|
256
|
0 |
0 |
unless defined $len or $! != 4 |
|
258
|
0 |
0 |
if (not $len) |
|
265
|
0 |
0 |
unless $result |
|
288
|
0 |
0 |
if $@ |
|
295
|
0 |
0 |
unless my $len = length($result) - $ofs |
|
298
|
0 |
0 |
$len < 65536 ? : |
|
300
|
0 |
0 |
unless $len or not defined $len and $! == 4 |
|
392
|
35 |
0 |
if (not $ENV{'PERL_ANYEVENT_AVOID_GUARD'} and eval {
do {
require Guard;
$Guard::VERSION >= 0.5
}
}) { } |
|
404
|
0 |
0 |
if $@ |
|
439
|
0 |
0 |
unless $POSIX::VERSION |
|
442
|
0 |
0 |
if ($^O =~ /(freebsd|cygwin|linux)/) |
|
445
|
0 |
0 |
if (opendir $dir, '/dev/fd' or opendir $dir, '/proc/self/fd') |
|
448
|
0 |
0 |
if (@fds < 20 or join($", @fds) ne join(' ', 0 .. $#fds)) |
|
591
|
0 |
0 |
unless $POSIX::VERSION |
|
602
|
0 |
0 |
$type =~ s/^(\d+)// ? : |
|
604
|
0 |
0 |
if ($type eq '>') { } |
|
|
0 |
0 |
elsif ($type eq '<') { } |
|
605
|
0 |
0 |
unless defined $fd |
|
607
|
0 |
0 |
if (defined eval {
do {
fileno $ob
}
}) { } |
|
|
0 |
0 |
elsif (ref $ob) { } |
|
618
|
0 |
0 |
unless defined(sysread($pr, $$ob, 16384, length $$ob) && (return)) |
|
625
|
0 |
0 |
unless defined(sysread($pr, $buf, 16384) && (return &$ob($buf))) |
|
631
|
0 |
0 |
'SCALAR' eq ref $ob ? : |
|
635
|
0 |
0 |
unless open my $fh, '>', $ob |
|
642
|
0 |
0 |
unless defined $fd |
|
644
|
0 |
0 |
if (defined eval {
do {
fileno $ob
}
}) { } |
|
|
0 |
0 |
elsif (ref $ob) { } |
|
651
|
0 |
0 |
if ('SCALAR' eq ref $ob) { } |
|
663
|
0 |
0 |
unless defined $len or $! != 4 |
|
665
|
0 |
0 |
if (not $len) { } |
|
669
|
0 |
0 |
unless (length $data) |
|
671
|
0 |
0 |
unless (length $data) |
|
681
|
0 |
0 |
unless open my $fh, '<', $ob |
|
694
|
0 |
0 |
unless defined $pid |
|
697
|
0 |
0 |
unless ($pid) |
|
717
|
0 |
0 |
unless defined POSIX::dup2($v, $k) |
|
722
|
0 |
0 |
if ($arg{'close_all'}) { } |
|
730
|
0 |
0 |
if exists $arg{'on_prepare'} |
|
733
|
0 |
0 |
ref $cmd ? : |
|
740
|
0 |
0 |
if $arg{'$$'} |
|
806
|
3 |
0 |
if (/[^0-9a-z\-.]/) |
|
808
|
1 |
2 |
unless (defined $uts46_imap) |
|
826
|
3 |
6 |
unless (vec $uts46_valid, ord $chr, 1) |
|
829
|
0 |
3 |
unless (my $rep = index($uts46_imap, "\000$chr")) >= 0 |
|
832
|
0 |
3 |
unless substr($uts46_imap, $rep, 128) =~ /\x00 .[\x80-\xbf]* ([^\x00]*) \x00/x |
|
836
|
3 |
0 |
unless $rep =~ s/^\x01// and $_[1] |
|
852
|
0 |
0 |
if ($ace eq 'xn') { } |
|
|
0 |
0 |
elsif (not $ace =~ /^[a-z0-9]{2}$/) { } |
|
856
|
0 |
0 |
unless $pc eq Unicode::Normalize::NFC($pc) |
|
868
|
0 |
3 |
if /\.-|-\./ |
|
874
|
3 |
0 |
if (/[^0-9a-z\-.]/) |
|
876
|
0 |
3 |
unless (defined $uts46_imap) |
|
908
|
2 |
3 |
unless $_[0] =~ /[^\x00-\x7f]/ |
|
913
|
0 |
3 |
unless eval {
do {
foreach $_ (split(/\./, &idn_nameprep($_[0]), -1)) {
if (/[^\x00-\x7f]/) {
unless (eval {
do {
push @output, 'xn--' . &punycode_encode($_);
1
}
}) {
push @output, $_;
} ;
}
else {
push @output, $_;
} ;
} ;
1
}
} |
|
916
|
3 |
5 |
if (/[^\x00-\x7f]/) { } |
|
920
|
0 |
3 |
unless (eval {
do {
push @output, 'xn--' . &punycode_encode($_);
1
}
}) |
|
961
|
0 |
0 |
defined $res ? : |