Branch Coverage

blib/lib/Patro/LeumJelly.pm
Criterion Covered Total %
branch 62 140 44.2


line true false branch
27 23 103 if ($proxyClasses{ref $proxy}) { }
45 0 1081 if ($Patro::SERVER_VERSION and $Patro::SERVER_VERSION <= 0.1) { }
63 0 81 unless $objdata->{'id'} and $objdata->{'ref'} and $objdata->{'reftype'}
65 11 70 if ($objdata->{'overload'})
70 5 76 if ($proxy->{'reftype'} eq 'SCALAR')
77 3 73 if ($proxy->{'reftype'} eq 'REF')
83 31 42 if ($proxy->{'reftype'} eq 'ARRAY')
90 27 15 if ($proxy->{'reftype'} eq 'HASH')
97 6 9 if ($proxy->{'reftype'} eq 'CODE' or $proxy->{'reftype'} eq 'CODE*')
109 3 0 defined wantarray ? :
114 9 0 if ($proxy->{'reftype'} eq 'GLOB')
130 36 465 unless (defined $request->{'context'})
131 36 0 defined wantarray ? :
133 0 501 unless (defined $request->{'id'})
137 363 138 if ($request->{'has_args'})
141 5 496 if (isProxyRef(ref $arg))
155 0 501 if ($proxy->{'_DESTROY'}) { }
163 0 501 unless (defined $resp)
166 0 501 if ref $resp
168 2 499 if ($resp->{'error'})
171 0 499 if ($resp->{'warn'})
174 0 499 if (exists $resp->{'disconnect_ok'})
179 12 487 if ($resp->{'out'} and ref $resp->{'out'} eq 'ARRAY')
184 0 14 if ($@)
186 0 0 if $resp->{'sideA'} and $@ =~ /Modification of a read-only .../ and $_[$index] eq $val
193 15 484 if (defined $resp->{'errno'})
197 1 498 if (defined $resp->{'child_error'})
201 0 499 if (defined $resp->{'eval_error'})
206 36 463 if ($resp->{'context'} == 0)
209 448 15 if ($resp->{'context'} == 1)
212 15 0 if ($resp->{'context'} == 2)
213 15 0 if ($request->{'context'} == 2) { }
231 463 38 if ($response->{'context'})
232 448 15 if ($response->{'context'} == 1) { }
15 0 elsif ($response->{'context'} == 2) { }
242 12 489 if ($response->{'out'})
251 463 82 if (ref $obj ne '.Patrobras')
255 40 42 if ($meta->{$id}) { }
42 0 elsif (defined $client->{'proxies'}{$id}) { }
279 13 0 if ($overloads and $overloads->{$op})
292 22 0 if $op eq 'bool'
293 0 0 if $op eq '<>'
295 0 0 if ($numeric_ops{$op})
297 0 0 if $op eq '0+'
298 0 0 if $op eq 'cos'
299 0 0 if $op eq 'sin'
300 0 0 if $op eq 'exp'
301 0 0 if $op eq 'log'
302 0 0 if $op eq 'sqrt'
303 0 0 if $op eq 'int'
304 0 0 if $op eq 'abs'
305 0 0 if $op eq 'neg'
306 0 0 if $op eq '++'
307 0 0 if $op eq '--'
308 0 0 if $op eq '!' or $op eq 'not'
309 0 0 if $op eq '~'
312 0 0 if $swap
313 0 0 if $op eq 'atan2'
314 0 0 if $op eq '=' or $op =~ /^[^<=>]=/
319 0 0 if $op eq '""'
320 0 0 if $op eq '=' or $op =~ /^[^<=>]=/
321 0 0 if $op eq 'qr'
322 0 0 if $op eq '-X'
323 0 0 if $swap
333 23 0 if ($overloads and $overloads->{$op})
342 0 0 if ($op eq '@{}')
343 0 0 if ($op eq '%{}')
344 0 0 if ($op eq '&{}')
345 0 0 if ($op eq '${}')
346 0 0 if ($op eq '*{}')