| line |
true |
false |
branch |
|
15
|
66 |
0 |
if (defined &CORE::read) { } |
|
18
|
4 |
0 |
if defined &CORE::read |
|
22
|
2 |
0 |
if defined &CORE::sysread |
|
51
|
65 |
15 |
if ($tag eq ':test') |
|
60
|
0 |
29 |
$rt eq 'HASH' ? : |
|
|
8 |
29 |
$rt eq 'ARRAY' ? : |
|
66
|
9 |
71 |
if ($tag eq ':insecure') |
|
71
|
0 |
66 |
if (defined $ENV{'PATRO_THREADS'} and not $ENV{'PATRO_THREADS'}) |
|
78
|
66 |
0 |
unless (defined &threads::tid) |
|
81
|
0 |
66 |
if ($ENV{'PATRO_THREADS'} and not $Patro::Server::threads_avail) |
|
91
|
0 |
65 |
if @_ == 0 |
|
98
|
3786 |
0 |
@_ ? : |
|
100
|
3761 |
25 |
unless (Patro::LeumJelly::isProxyRef($ref)) |
|
109
|
33 |
18 |
unless (Patro::LeumJelly::isProxyRef($ref)) |
|
122
|
0 |
14 |
unless (Patro::LeumJelly::isProxyRef(CORE::ref $_[0])) |
|
138
|
0 |
562 |
if (not $ref) { } |
|
145
|
68 |
0 |
@r > 0 ? : |
|
|
494 |
68 |
wantarray ? : |
|
152
|
0 |
0 |
if $threads::threads |
|
153
|
0 |
0 |
CORE::ref($_) =~ /^Patro::N/ ? : |
|
|
0 |
0 |
CORE::ref $_ ? : |
|
157
|
0 |
0 |
if ($INC{'Test/More.pm'}) { } |
|
172
|
12 |
13 |
unless (CORE::ref $config) |
|
173
|
3 |
9 |
if (-f $config) { } |
|
180
|
0 |
25 |
unless $config->{'host'} |
|
181
|
0 |
25 |
unless $config->{'port'} |
|
186
|
0 |
25 |
unless socket my $socket, 2, 1, getprotobyname 'tcp' |
|
188
|
0 |
25 |
unless connect $socket, $paddr |
|
215
|
5 |
20 |
if (CORE::ref $patro ne 'Patro') |
|
218
|
17 |
8 |
wantarray ? : |
|
225
|
1 |
1 |
if (CORE::ref $fh eq 'Patro::N5') { } |
|
234
|
0 |
0 |
if (CORE::ref $fh eq 'Patro::N5') { } |
|
243
|
2 |
2 |
if (CORE::ref $fh eq 'Patro::N5') { } |
|
253
|
4 |
69 |
if (CORE::ref $fh eq 'Patro::N5') { } |
|
262
|
3 |
3 |
if (CORE::ref $fh eq 'Patro::N5') { } |
|
|
0 |
3 |
elsif (defined $perm) { } |
|
273
|
0 |
0 |
if (CORE::ref $fh eq 'Patro::N5') |
|
281
|
1 |
4 |
if (CORE::ref $_[0] eq 'Patro::N5') |
|
289
|
1 |
1 |
if (CORE::ref $fh eq 'Patro::N5') |
|
297
|
3 |
3 |
if (CORE::ref $fh eq 'Patro::N5') |
|
305
|
1 |
1 |
if (CORE::ref $fh eq 'Patro::N5') |
|
313
|
3 |
3 |
if (CORE::ref $fh eq 'Patro::N5') |
|
321
|
1 |
1 |
if (CORE::ref $fh eq 'Patro::N5') |
|
329
|
1 |
1 |
if ($fh and CORE::ref $fh eq 'Patro::N5') |