Branch Coverage

blib/lib/Patro.pm
Criterion Covered Total %
branch 42 70 60.0


line true false branch
15 60 0 if (defined &CORE::read) { }
18 4 0 if defined &CORE::read
22 2 0 if defined &CORE::sysread
40 59 9 if ($tag eq ':test')
50 0 9 if ($Patro::Server::threads_avail) { }
53 9 0 $_[1] ? :
62 0 29 $rt eq 'HASH' ? :
8 29 $rt eq 'ARRAY' ? :
68 3 65 if ($tag eq ':insecure')
73 0 60 if (defined $ENV{'PATRO_THREADS'} and not $ENV{'PATRO_THREADS'})
80 60 0 unless (defined &threads::tid)
83 0 60 if ($ENV{'PATRO_THREADS'} and not $Patro::Server::threads_avail)
93 0 59 if @_ == 0
100 3621 0 @_ ? :
102 3598 23 unless (Patro::LeumJelly::isProxyRef($ref))
111 33 17 unless (Patro::LeumJelly::isProxyRef($ref))
124 0 9 unless (Patro::LeumJelly::isProxyRef(CORE::ref $_[0]))
140 0 526 if (not $ref) { }
147 60 0 @r > 0 ? :
466 60 wantarray ? :
154 0 0 if $threads::threads
155 0 0 CORE::ref($_) =~ /^Patro::N/ ? :
0 0 CORE::ref $_ ? :
159 0 0 if ($INC{'Test/More.pm'}) { }
174 11 12 unless (CORE::ref $config)
175 3 8 if (-f $config) { }
182 0 23 unless $config->{'host'}
183 0 23 unless $config->{'port'}
188 0 23 unless socket my $socket, 2, 1, getprotobyname 'tcp'
190 0 23 unless connect $socket, $paddr
217 4 19 if (CORE::ref $patro ne 'Patro')
220 16 7 wantarray ? :
227 1 1 if (CORE::ref $fh eq 'Patro::N5') { }
236 0 0 if (CORE::ref $fh eq 'Patro::N5') { }
245 2 2 if (CORE::ref $fh eq 'Patro::N5') { }