Branch Coverage

blib/lib/XDR/CallReply.pm
Criterion Covered Total %
branch 67 96 69.7


line true false branch
43 0 1 unless $vers
44 0 1 unless $prog
53 1 1 if ($type eq 'struct') { }
77 9 9 if (UNIVERSAL::isa($arg, 'XDR::Decode')) { }
3 6 elsif (ref $type) { }
80 3 6 if (ref $type) { }
88 6 0 unless ref $subtype
95 0 6 if $@
101 0 3 if ref $arg ne 'ARRAY'
102 0 3 if (scalar @$type != scalar @$arg)
112 6 0 unless ref $subtype
120 0 6 if $@
144 2 4 if $i != 0
151 5 1 if ($type ne 'void')
153 2 3 if (ref $type) { }
165 1 3 if $nargs == 0
177 2 2 if ($type ne 'void')
179 1 1 if (ref $type) { }
189 2 2 if $nres == 0
192 1 3 unless ($pkg->can('call'))
248 1 3 unless ($pkg->can('dispatch'))
377 0 1 if $#_ != 1
0 1 if $#_ != 0
1 3 if ($callrep == 0) { }
1 2 elsif ($callrep == 1) { }
0 1 if $#_ != 0
0 0 if $#_ != -1
1 1 if ($callrep == 0) { }
0 1 elsif ($callrep == 1) { }
0 1 if $#_ != -1
0 0 if $#_ != -1
1 1 if ($callrep == 0) { }
0 1 elsif ($callrep == 1) { }
0 1 if $#_ != 1
0 1 if $#_ != 0
1 3 if ($callrep == 0) { }
1 2 elsif ($callrep == 1) { }
6 0 unless UNIVERSAL::isa($rpc, 'XDR::RPC')
0 4 unless (defined $t)
0 4 unless (defined $t)
0 4 unless (defined $t)
0 4 unless (defined $t)
0 2 unless defined $hook
4 2 if ($rpc->can('rpcvers')) { }
0 6 if $@
2 0 unless $xid =~ /^d+$/
2 4 if (defined $xid) { }
378 0 4 if $@