| line |
true |
false |
branch |
|
33
|
0 |
0 |
if (defined $arg{'Feed'} and $arg{'Feed'}) { } |
|
39
|
0 |
0 |
defined $arg{'Host'} ? : |
|
|
0 |
0 |
defined $arg{'Port'} ? : |
|
|
0 |
0 |
defined $arg{'Timeout'} ? : |
|
|
0 |
0 |
defined $arg{'ListenQueueSize'} ? : |
|
46
|
0 |
0 |
defined $arg{'Host'} ? : |
|
|
0 |
0 |
defined $arg{'Port'} ? : |
|
|
0 |
0 |
defined $arg{'Timeout'} ? : |
|
52
|
0 |
0 |
unless defined $obj |
|
59
|
0 |
0 |
if (defined $arg{'version'}) { } |
|
75
|
0 |
0 |
unless (defined $arg{'WaitResponse'}) |
|
81
|
0 |
0 |
if $arg{'Debug'} |
|
84
|
0 |
0 |
if $arg{'Debug'} |
|
86
|
0 |
0 |
unless $arg{'WaitResponse'} |
|
91
|
0 |
0 |
if $arg{'Debug'} |
|
93
|
0 |
0 |
if $response |
|
104
|
0 |
0 |
unless (defined $arg{'WaitResponse'}) |
|
108
|
0 |
0 |
${*$self;}->{'args'}{'TargetSubID'} ? : |
|
111
|
0 |
0 |
if $arg{'Debug'} |
|
114
|
0 |
0 |
if $arg{'Debug'} |
|
116
|
0 |
0 |
unless $arg{'WaitResponse'} |
|
122
|
0 |
0 |
if $arg{'Debug'} |
|
124
|
0 |
0 |
if $response |
|
136
|
0 |
0 |
${*$self;}->{'args'}{'TargetSubID'} ? : |
|
139
|
0 |
0 |
if $arg{'Debug'} |
|
141
|
0 |
0 |
if $arg{'Debug'} |
|
154
|
0 |
0 |
if (scalar @ready) |
|
156
|
0 |
0 |
if (not sysread($ready[0], $response, 4096)) { } |
|
160
|
0 |
0 |
if $arg{'Debug'} |
|
164
|
0 |
0 |
if length $fixMsg <= 0 |
|
166
|
0 |
0 |
if $arg{'Debug'} |
|
170
|
0 |
0 |
if (not defined $parsedResp->{'MsgType'}) { } |
|
|
0 |
0 |
elsif ($parsedResp->{'MsgType'} eq '0') { } |
|
|
0 |
0 |
elsif ($parsedResp->{'MsgType'} eq '1') { } |
|
171
|
0 |
0 |
if $arg{'Debug'} |
|
174
|
0 |
0 |
if $arg{'Debug'} |
|
177
|
0 |
0 |
defined $parsedResp->{'TestReqID'} ? : |
|
178
|
0 |
0 |
if $arg{'Debug'} |
|
192
|
0 |
0 |
if (time - $lastHbTime > $HeartBtInt) |
|
207
|
0 |
0 |
unless ($self->{'Feed'}) |
|
211
|
0 |
0 |
unless my $lsnSel = 'IO::Select'->new |
|
212
|
0 |
0 |
unless my $clnSel = 'IO::Select'->new |
|
231
|
0 |
0 |
if (scalar @ready) |
|
240
|
0 |
0 |
if (not sysread($socket, my $response, 4096)) { } |
|
246
|
0 |
0 |
if $arg{'Debug'} |
|
250
|
0 |
0 |
if length $fixMsg <= 0 |
|
252
|
0 |
0 |
if $arg{'Debug'} |
|
255
|
0 |
0 |
if (not defined $parsedResp->{'MsgType'}) { } |
|
|
0 |
0 |
elsif ($parsedResp->{'MsgType'} eq '0') { } |
|
|
0 |
0 |
elsif ($parsedResp->{'MsgType'} eq '1') { } |
|
|
0 |
0 |
elsif (getMsgByType($self, $parsedResp->{'MsgType'}) eq 'Logon') { } |
|
256
|
0 |
0 |
if $arg{'Debug'} |
|
259
|
0 |
0 |
if $arg{'Debug'} |
|
267
|
0 |
0 |
defined $parsedResp->{'TestReqID'} ? : |
|
268
|
0 |
0 |
if $arg{'Debug'} |
|
277
|
0 |
0 |
if ($parsedResp->{'TargetCompID'} ne $arg{'SenderCompID'}) |
|
278
|
0 |
0 |
if $arg{'Debug'} |
|
283
|
0 |
0 |
if ($arg{'AutoLogon'}) { } |
|
284
|
0 |
0 |
if $arg{'Debug'} |
|
294
|
0 |
0 |
if (defined $msg->{'MsgType'}) |
|
302
|
0 |
0 |
if ($msg->{'MsgType'} eq 'Reject' or $msg->{'MsgType'} eq '3') |
|
313
|
0 |
0 |
if (defined $msg->{'MsgType'}) |
|
329
|
0 |
0 |
if ($clnSel->count and &gettimeofday() - $lastPeriodicHandlerTime > $arg{'Period'} / 1000) |
|
332
|
0 |
0 |
if ($MD) |
|
334
|
0 |
0 |
if (defined $sessions{$client}) { } |
|
337
|
0 |
0 |
if ($sessions{$client} eq $sck->peerhost . ':' . $sck->peerport) |
|
338
|
0 |
0 |
if $arg{'Debug'} |
|
343
|
0 |
0 |
unless (defined $socket) |
|
344
|
0 |
0 |
if $arg{'Debug'} |
|
358
|
0 |
0 |
if $arg{'Debug'} |
|
370
|
0 |
0 |
if defined ${*$self;}->{'logon'}{'MsgType'} and ${*$self;}->{'logon'}{'MsgType'} eq &getMessageType('Logon') |
|
385
|
0 |
0 |
if (not ref $val) { } |
|
|
0 |
0 |
elsif (ref $val eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $val eq 'HASH') { } |
|
389
|
0 |
0 |
unless (&isGroup($field->{'name'})) |
|
394
|
0 |
0 |
if (defined $$entry{$f->{'name'}}) { } |
|
|
0 |
0 |
elsif ($f->{'required'} eq 'Y') { } |
|
403
|
0 |
0 |
unless (&isComponent($field->{'name'})) |
|
408
|
0 |
0 |
if (defined $$val{$f->{'name'}}) { } |
|
|
0 |
0 |
elsif ($f->{'required'} eq 'Y') { } |
|
421
|
0 |
0 |
unless ($msgtype) |
|
437
|
0 |
0 |
if (defined $$arg{$field->{'name'}}) { } |
|
|
0 |
0 |
elsif ($field->{'required'} eq 'Y' and defined $fieldDefaults{$field->{'name'}}) { } |
|
|
0 |
0 |
elsif ($field->{'required'} eq 'Y' and $field->{'name'} ne 'BeginString' and $field->{'name'} ne 'BodyLength' and $field->{'name'} ne 'MsgType' and $field->{'name'} ne 'MsgSeqNum' and $field->{'name'} ne 'SendingTime') { } |
|
445
|
0 |
0 |
if ($field->{'name'} eq 'MDReqID') { } |
|
473
|
0 |
0 |
defined $ff ? : |
|
481
|
0 |
0 |
unless defined $gn |
|
482
|
0 |
0 |
unless &isGroup($gn) |
|
485
|
0 |
0 |
unless defined $msg |
|
497
|
0 |
0 |
unless defined $s |
|
499
|
0 |
0 |
unless defined $gn |
|
501
|
0 |
0 |
unless &isGroup($g) |
|
511
|
0 |
0 |
unless defined $m and defined $f |
|
513
|
0 |
0 |
unless defined $fn |
|
518
|
0 |
0 |
if $f2->{'name'} eq $fn and not defined $f2->{'component'} |
|
521
|
0 |
0 |
if (defined $f2->{'group'}) |
|
522
|
0 |
0 |
if &_isFieldInStructure($f2->{'group'}, $fn) == 1 |
|
527
|
0 |
0 |
if (defined $f2->{'component'}) |
|
528
|
0 |
0 |
if &_isFieldInStructure(scalar &getComponentFields($f2->{'name'}), $fn) == 1 |
|
543
|
0 |
0 |
if $e->{'name'} eq $gn and defined $e->{'group'} |
|
546
|
0 |
0 |
if (defined $e->{'group'}) |
|
549
|
0 |
0 |
if defined $ret |
|
553
|
0 |
0 |
if (defined $e->{'component'}) |
|
555
|
0 |
0 |
if defined $ret |
|
565
|
0 |
0 |
defined $fh ? : |
|
575
|
0 |
0 |
if $f =~ /^[0-9]+$/ |
|
577
|
0 |
0 |
unless defined $fh |
|
578
|
0 |
0 |
defined $fh ? : |
|
584
|
0 |
0 |
if $v =~ /^[0-9]+$/ |
|
586
|
0 |
0 |
unless defined $fh |
|
587
|
0 |
0 |
if ($fh->{'enum'}) |
|
589
|
0 |
0 |
if ($_->{'description'} eq $v) |
|
601
|
0 |
0 |
unless defined $fh |
|
602
|
0 |
0 |
if ($fh->{'enum'}) |
|
604
|
0 |
0 |
if ($_->{'name'} eq $v) |
|
619
|
0 |
0 |
if $f =~ /^[0-9]+$/ |
|
621
|
0 |
0 |
unless defined $fh |
|
622
|
0 |
0 |
defined $fh ? : |
|
628
|
0 |
0 |
unless defined $fh |
|
629
|
0 |
0 |
defined $fh ? : |
|
640
|
0 |
0 |
unless defined $fh |
|
641
|
0 |
0 |
defined $fh ? : |
|
661
|
0 |
0 |
unless defined $fh |
|
662
|
0 |
0 |
defined $fh ? : |
|
667
|
0 |
0 |
unless defined $message |
|
686
|
0 |
0 |
if (defined $$result->{$k}) |
|
687
|
0 |
0 |
if defined $groupTag |
|
690
|
0 |
0 |
if (defined $groupTag) |
|
691
|
0 |
0 |
unless &isFieldInGroup($msgType, $groupTag, $k) |
|
696
|
0 |
0 |
if (defined $fieldName) { } |
|
702
|
0 |
0 |
if ($fieldName eq 'MsgType') { } |
|
|
0 |
0 |
elsif (&isGroup($k)) { } |