| line |
true |
false |
branch |
|
95
|
1 |
16 |
if (ref $class) |
|
101
|
10 |
6 |
if (ref $argz[0]) { } |
|
|
4 |
2 |
elsif (@argz == 1) { } |
|
125
|
0 |
0 |
unless (ref $new_proc) |
|
130
|
0 |
0 |
if ($class ne 'RPC::XML::Procedure' and $pkg ne $class) |
|
153
|
4 |
7 |
if ($key eq 'signature') { } |
|
159
|
2 |
2 |
ref $val ? : |
|
169
|
2 |
10 |
unless ($new_proc->{'name'} and $new_proc->{'code'}) |
|
173
|
1 |
9 |
if ($class ne 'RPC::XML::Function' and not exists $new_proc->{'signature'} && ref $new_proc->{'signature'} eq 'ARRAY' && scalar @{$new_proc->{'signature'};}) |
|
214
|
1 |
19 |
unless ($return) |
|
218
|
1 |
18 |
unless ($RPC::XML::Procedure::VALID_TYPES{$return}) |
|
225
|
1 |
17 |
if (grep {not $RPC::XML::Procedure::VALID_TYPES{$_};} @rest) |
|
232
|
2 |
15 |
if ($self->{'sig_table'}{$rest}) |
|
254
|
1 |
2 |
if ($value) |
|
266
|
1 |
2 |
if ($value) |
|
278
|
1 |
3 |
if ($value) |
|
290
|
1 |
5 |
if ($value and ref $value eq 'CODE') |
|
302
|
3 |
7 |
if ($sig) |
|
304
|
2 |
1 |
if (ref $sig eq 'ARRAY') { } |
|
309
|
1 |
1 |
unless (ref $is_good) |
|
354
|
0 |
0 |
if $_ eq 'signature' |
|
357
|
0 |
0 |
unless ($self->isa('RPC::XML::Function')) |
|
392
|
0 |
0 |
ref $one_sig ? : |
|
397
|
0 |
0 |
unless (ref $is_good) |
|
420
|
0 |
0 |
ref $one_sig ? : |
|
425
|
0 |
0 |
if (@{$self->{'signature'};} == 0) |
|
458
|
0 |
0 |
if (ref $sig) |
|
486
|
1 |
0 |
unless ($self->{'file'}) |
|
493
|
0 |
0 |
if (ref $newly_loaded) { } |
|
553
|
0 |
0 |
if ($elem eq 'signature') { } |
|
|
0 |
0 |
elsif ($elem eq 'hidden') { } |
|
|
0 |
0 |
elsif ($elem eq 'code') { } |
|
|
0 |
0 |
elsif ('def' eq substr($elem, -3)) { } |
|
564
|
0 |
0 |
unless ($attr{'language'} and $attr{'language'} ne 'perl') |
|
584
|
0 |
0 |
unless ($P) |
|
588
|
0 |
0 |
unless open $fh, '<', $file |
|
591
|
0 |
0 |
unless close $fh |
|
592
|
0 |
0 |
unless ($eval_ret) |
|
608
|
0 |
0 |
if $@ |
|
657
|
0 |
0 |
if (not $resptype) { } |
|
|
0 |
0 |
elsif ($resptype eq 'dateTime.iso8601') { } |
|
675
|
0 |
0 |
if ($self->isa('RPC::XML::Method')) |
|
681
|
0 |
0 |
unless (eval {
do {
$response = $self->{'code'}->(@params);
1
}
}) |
|
685
|
0 |
0 |
if (&blessed($@) and $@->isa('RPC::XML::fault')) { } |
|
699
|
0 |
0 |
unless ($name eq 'system.status' and @params_in and $paramtypes[0] eq 'boolean' and $params[0]) |
|
707
|
0 |
0 |
unless (ref $response) |
|
709
|
0 |
0 |
if ($resptype eq 'scalar') { } |