Branch Coverage

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


line true false branch
26 14 73 if ($proxyClasses{ref $proxy}) { }
44 0 917 if ($Patro::SERVER_VERSION and $Patro::SERVER_VERSION <= 0.1) { }
62 0 66 unless $objdata->{'id'} and $objdata->{'ref'} and $objdata->{'reftype'}
64 8 58 if ($objdata->{'overload'})
69 3 63 if ($proxy->{'reftype'} eq 'SCALAR')
76 2 61 if ($proxy->{'reftype'} eq 'REF')
82 27 34 if ($proxy->{'reftype'} eq 'ARRAY')
89 22 12 if ($proxy->{'reftype'} eq 'HASH')
96 6 6 if ($proxy->{'reftype'} eq 'CODE' or $proxy->{'reftype'} eq 'CODE*')
108 3 0 defined wantarray ? :
113 6 0 if ($proxy->{'reftype'} eq 'GLOB')
131 15 418 unless (defined $request->{'context'})
132 15 0 defined wantarray ? :
134 0 433 unless (defined $request->{'id'})
138 330 103 if ($request->{'has_args'})
142 5 454 if (isProxyRef(ref $arg))
151 0 433 if ($_DESTROY) { }
159 0 433 unless (defined $resp)
162 0 433 if ref $resp
164 2 431 if ($resp->{'error'})
167 0 431 if ($resp->{'warn'})
170 0 431 if (exists $resp->{'disconnect_ok'})
175 12 419 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 11 420 if (defined $resp->{'errno'})
193 1 430 if (defined $resp->{'child_error'})
197 0 431 if (defined $resp->{'eval_error'})
202 30 401 if ($resp->{'context'} == 0)
205 387 14 if ($resp->{'context'} == 1)
208 14 0 if ($resp->{'context'} == 2)
209 14 0 if ($request->{'context'} == 2) { }
227 401 32 if ($response->{'context'})
228 387 14 if ($response->{'context'} == 1) { }
14 0 elsif ($response->{'context'} == 2) { }
238 12 421 if ($response->{'out'})
247 398 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 18 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 '&{}')