| line |
true |
false |
branch |
|
113
|
0 |
0 |
unless $params{'sessionID'} |
|
115
|
0 |
0 |
unless $port = $params{'port'} |
|
116
|
0 |
0 |
unless $host = $params{'host'} |
|
118
|
0 |
0 |
unless $sock = 'IO::Socket::INET'->new('PeerAddr', $host, 'PeerPort', $port, 'Proto', 'tcp', 'Type', 1) |
|
125
|
0 |
0 |
unless ($ok) |
|
153
|
0 |
0 |
unless ($params{'user'}) |
|
156
|
0 |
0 |
unless ($h) |
|
159
|
0 |
0 |
if ($ENV{'USER'}) { } |
|
172
|
0 |
0 |
if $params{'pwd'} |
|
173
|
0 |
0 |
if $self->{'_newResponseSyntax'} |
|
174
|
0 |
0 |
if $params{'switch_port'} |
|
200
|
0 |
0 |
unless defined $tmp |
|
209
|
0 |
0 |
if $@ |
|
230
|
0 |
0 |
if (exists $p->{'_'}) |
|
231
|
0 |
0 |
unless exists $p->{'grips_object_name'} |
|
234
|
0 |
0 |
if exists $p->{'request_id'} |
|
235
|
0 |
0 |
unless (exists $p->{'grips_object_name'} or exists $p->{'request_id'}) |
|
236
|
0 |
0 |
if ($goDie) { } |
|
250
|
0 |
0 |
if exists $params{'attributes'} |
|
256
|
0 |
0 |
if (exists $params{'attribute'}) |
|
279
|
0 |
0 |
if $key eq 'debug' |
|
280
|
0 |
0 |
if $key eq '_' |
|
281
|
0 |
0 |
if $key eq 'grips_object_name' |
|
282
|
0 |
0 |
if $key eq 'request_id' |
|
309
|
0 |
0 |
unless $params{'id'} |
|
313
|
0 |
0 |
if $params{'model'} |
|
314
|
0 |
0 |
if $params{'type'} |
|
315
|
0 |
0 |
if $params{'access'} |
|
316
|
0 |
0 |
if $params{'domain'} |
|
317
|
0 |
0 |
if $params{'model'} |
|
318
|
0 |
0 |
if $params{'name'} |
|
320
|
0 |
0 |
if (exists $params{'db'}) |
|
325
|
0 |
0 |
if not exists $params{'dbs'} or @{$params{'dbs'};} == 0 |
|
335
|
0 |
0 |
if (exists $params{'db_access'}) |
|
353
|
0 |
0 |
if exists $params{'request_id'} |
|
356
|
0 |
0 |
if $params{'unlock'} |
|
359
|
0 |
0 |
if not exists $params{'path'} or @{$params{'path'};} == 0 |
|
360
|
0 |
0 |
if not exists $params{'value'} or @{$params{'value'};} == 0 |
|
361
|
0 |
0 |
if @{$params{'path'};} != @{$params{'value'};} |
|
363
|
0 |
0 |
if (exists $params{'value'}) |
|
368
|
0 |
0 |
if (exists $params{'path'}) |
|
392
|
0 |
0 |
if exists $params{'base'} |
|
395
|
0 |
0 |
unless exists $params{'_'} |
|
410
|
0 |
0 |
if exists $params{'base'} |
|
414
|
0 |
0 |
if $obj |
|
416
|
0 |
0 |
unless ($params{'query'} or $params{'query.string'}) |
|
423
|
0 |
0 |
if (ref $params{'query'} eq 'HASH') { } |
|
424
|
0 |
0 |
unless exists $params{'query'}{'string'} |
|
425
|
0 |
0 |
unless exists $params{'query'}{'lang'} |
|
429
|
0 |
0 |
if exists $params{'query'}{'mode'} |
|
433
|
0 |
0 |
unless $params{'query.lang'} |
|
437
|
0 |
0 |
if exists $params{'query.mode'} |
|
440
|
0 |
0 |
if ($params{'result.id'}) |
|
454
|
0 |
0 |
unless ($params{'statementID'}) |
|
462
|
0 |
0 |
if ($params{'fieldList'}) |
|
475
|
0 |
0 |
if $params{'subset'} |
|
487
|
0 |
0 |
if exists $params{'base'} |
|
496
|
0 |
0 |
unless $self->_getSock->close |
|
515
|
0 |
0 |
if exists $params{'base'} |
|
528
|
0 |
0 |
if exists $params{'result'} and ref $params{'result'} eq 'HASH' |
|
530
|
0 |
0 |
if exists $params{'base'} |
|
543
|
0 |
0 |
if ($response->{'status'} and $response->{'status'} ne $status) |
|
546
|
0 |
0 |
if ($type eq 'HARD') { } |
|
|
0 |
0 |
elsif ($type eq 'SOFT') { } |
|
604
|
0 |
0 |
unless $sock->connected |
|
606
|
0 |
0 |
unless $debug |
|
619
|
0 |
0 |
if $debug > 1 |
|
630
|
0 |
0 |
if ($processGscDirect) |
|
632
|
0 |
0 |
if $debug > 1 |
|
636
|
0 |
0 |
if @$rawResponse |
|
640
|
0 |
0 |
if $debug > 2 |
|
650
|
0 |
0 |
if ($self->{'_newResponseSyntax'}) { } |
|
695
|
0 |
0 |
if ($self->{'_newResponseSyntax'}) { } |
|
697
|
0 |
0 |
if $_ |
|
701
|
0 |
0 |
if /^\}$/ |
|
702
|
0 |
0 |
if $debug |
|
704
|
0 |
0 |
if (not /^[\w\.\(\)\$#-]+=/) { } |
|
707
|
0 |
0 |
if $respPar |
|
713
|
0 |
0 |
if $respPar |
|
724
|
0 |
0 |
if $debug |
|
726
|
0 |
0 |
if (not /^[\w\.\(\)\$#]+=/) { } |
|
759
|
0 |
0 |
if ($$respPar =~ /^(.*?)=(.*\S*.*)/ms) |
|
863
|
0 |
0 |
if ($sub eq 'DESTROY') |
|
874
|
0 |
0 |
if lc $sub eq 'getfield' |
|
890
|
0 |
0 |
if $k eq 'debug' |
|
891
|
0 |
0 |
if $k eq 'request_id' |
|
892
|
0 |
0 |
if $k eq 'grips_object_name' |
|
893
|
0 |
0 |
if $k eq '_' |
|
909
|
0 |
0 |
unless (defined $data) |
|
914
|
0 |
0 |
if (not defined ref $data or ref $data eq '') { } |
|
|
0 |
0 |
elsif (ref $data eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (ref $data eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $data eq 'HASH') { } |