Branch Coverage

blib/lib/Patro/LeumJelly.pm
Criterion Covered Total %
branch 62 136 45.5


line true false branch
26 17 82 if ($proxyClasses{ref $proxy}) { }
44 0 966 if ($Patro::SERVER_VERSION and $Patro::SERVER_VERSION <= 0.1) { }
62 0 69 unless $objdata->{'id'} and $objdata->{'ref'} and $objdata->{'reftype'}
64 8 61 if ($objdata->{'overload'})
69 3 66 if ($proxy->{'reftype'} eq 'SCALAR')
76 2 64 if ($proxy->{'reftype'} eq 'REF')
82 27 37 if ($proxy->{'reftype'} eq 'ARRAY')
89 22 15 if ($proxy->{'reftype'} eq 'HASH')
96 6 9 if ($proxy->{'reftype'} eq 'CODE' or $proxy->{'reftype'} eq 'CODE*')
108 3 0 defined wantarray ? :
113 9 0 if ($proxy->{'reftype'} eq 'GLOB')
131 15 442 unless (defined $request->{'context'})
132 15 0 defined wantarray ? :
134 0 457 unless (defined $request->{'id'})
138 342 115 if ($request->{'has_args'})
142 5 472 if (isProxyRef(ref $arg))
151 0 457 if ($_DESTROY) { }
159 0 457 unless (defined $resp)
162 0 457 if ref $resp
164 2 455 if ($resp->{'error'})
167 0 455 if ($resp->{'warn'})
170 0 455 if (exists $resp->{'disconnect_ok'})
175 12 443 if ($resp->{'out'} and ref $resp->{'out'} eq 'ARRAY')
180 0 14 if ($@)
182 0 0 if $resp->{'sideA'} and $@ =~ /Modification of a read-only .../ and $_[$index] eq $val
189 15 440 if (defined $resp->{'errno'})
193 1 454 if (defined $resp->{'child_error'})
197 0 455 if (defined $resp->{'eval_error'})
202 30 425 if ($resp->{'context'} == 0)
205 410 15 if ($resp->{'context'} == 1)
208 15 0 if ($resp->{'context'} == 2)
209 15 0 if ($request->{'context'} == 2) { }
227 425 32 if ($response->{'context'})
228 410 15 if ($response->{'context'} == 1) { }
15 0 elsif ($response->{'context'} == 2) { }
238 12 445 if ($response->{'out'})
247 444 62 if (ref $obj ne '.Patrobras')
251 31 31 if ($meta->{$id}) { }
31 0 elsif (defined $client->{'proxies'}{$id}) { }
275 12 0 if ($overloads and $overloads->{$op})
288 22 0 if $op eq 'bool'
289 0 0 if $op eq '<>'
291 0 0 if ($numeric_ops{$op})
293 0 0 if $op eq '0+'
294 0 0 if $op eq 'cos'
295 0 0 if $op eq 'sin'
296 0 0 if $op eq 'exp'
297 0 0 if $op eq 'log'
298 0 0 if $op eq 'sqrt'
299 0 0 if $op eq 'int'
300 0 0 if $op eq 'abs'
301 0 0 if $op eq 'neg'
302 0 0 if $op eq '++'
303 0 0 if $op eq '--'
304 0 0 if $op eq '!' or $op eq 'not'
305 0 0 if $op eq '~'
308 0 0 if $swap
309 0 0 if $op eq 'atan2'
310 0 0 if $op eq '=' or $op =~ /^[^<=>]=/
315 0 0 if $op eq '""'
316 0 0 if $op eq '=' or $op =~ /^[^<=>]=/
317 0 0 if $op eq 'qr'
318 0 0 if $op eq '-X'
319 0 0 if $swap
329 3 0 if ($overloads and $overloads->{$op})
338 0 0 if ($op eq '@{}')
339 0 0 if ($op eq '%{}')
340 0 0 if ($op eq '&{}')