| line |
true |
false |
branch |
|
51
|
0 |
5 |
unless my $app = $$self{'application'} |
|
53
|
0 |
5 |
unless my $version = $$self{'version'} |
|
59
|
5 |
0 |
unless ($socket = $$self{'socket'}) |
|
60
|
0 |
5 |
unless $$self{'peeraddr'} |
|
61
|
0 |
5 |
unless $$self{'peerport'} or index($$self{'peeraddr'}, ':') != -1 |
|
70
|
0 |
5 |
unless $socket |
|
79
|
0 |
5 |
unless defined $reply |
|
80
|
0 |
5 |
unless ref $reply eq 'ARRAY' |
|
81
|
5 |
0 |
defined $$reply[1] ? : |
|
82
|
0 |
5 |
unless $$reply[0] |
|
85
|
1 |
4 |
if wantarray |
|
110
|
0 |
37 |
unless defined $msg |
|
111
|
14 |
23 |
if ref $msg eq 'SCALAR' |
|
112
|
0 |
23 |
unless ref $msg eq 'ARRAY' |
|
119
|
0 |
4 |
unless $object |
|
120
|
0 |
4 |
unless $object =~ /^((?:\w+|\:\:)+)=(\w+)/ |
|
139
|
0 |
13 |
unless ($index = rindex($method, '::')) != -1 |
|
143
|
0 |
4 |
if wantarray |
|
|
0 |
4 |
if wantarray |
|
|
0 |
4 |
if wantarray |
|
|
0 |
4 |
if wantarray |
|
159
|
0 |
4 |
if ref $class |
|
162
|
3 |
1 |
unless @{"${ocl}::ISA";} |
|
173
|
4 |
0 |
if (my $client = delete $$self{'client'}) |