Branch Coverage

blib/lib/RPC/Serialized/Server.pm
Criterion Covered Total %
branch 40 66 60.6


line true false branch
28 5 2 !ref($ns) ? :
0 7 !defined($ns) ? :
33 0 7 if ($self->trace)
36 0 0 if ($@) { }
47 0 7 if exists $params->rpc_serialized->{'handlers'}
50 7 0 if exists $params->rpc_serialized->{'callbacks'}
58 38 0 unless $self->trace
69 0 13 if (scalar @{$args;} % 2 == 0 and exists $self->args_suppress_log->{$call} and ref $self->args_suppress_log->{$call} eq ref [])
75 0 0 if (exists $args{$_})
95 6 19 if (@_)
99 15 10 if exists $$self{'HANDLER'}{$call}
107 0 13 if (@_)
110 0 0 unless UNIVERSAL::isa($handler, 'RPC::Serialized::AuthzHandler')
120 5 19 unless my($data, @token) = $self->SUPER::recv
123 0 19 unless $call and not ref $call
127 0 19 unless $args and ref $args eq 'ARRAY'
151 9 10 if ($hc = $self->handler($call)) { }
152 0 9 unless eval "require $hc"
157 0 10 if $call =~ /\W/
164 8 4 unless eval "require ${ns}::$name"
173 6 13 unless defined $hc
176 0 13 unless $hc->isa('RPC::Serialized::Handler')
179 0 13 unless $self->authorize($call, $hc->target(@$args))
182 2 11 if ($self->callbacks->{'pre_handler_argument_filter'})
188 0 2 if ($@)
204 6 0 if (UNIVERSAL::isa($err, 'RPC::Serialized::X')) { }
235 19 5 if ($call)
244 6 18 if ($@)
249 5 19 unless $response
253 19 0 unless $self->debug
262 0 19 if ($@)
264 0 0 unless $self->debug
269 19 0 unless $self->debug