| line |
true |
false |
branch |
|
47
|
0 |
2 |
if (not defined $format) { } |
|
49
|
1 |
1 |
unless (defined $range) |
|
50
|
1 |
1 |
if ($format eq 'BLINKER') |
|
61
|
0 |
2 |
if ($format eq 'GIZA') { } |
|
|
1 |
1 |
elsif ($format eq 'BLINKER') { } |
|
|
1 |
0 |
elsif ($format eq 'NAACL') { } |
|
|
0 |
0 |
elsif ($format eq 'TALP') { } |
|
119
|
0 |
0 |
unless (defined $outputFH) |
|
120
|
0 |
0 |
if ($representation eq 'matrix') |
|
121
|
0 |
0 |
unless (defined $mark) |
|
122
|
0 |
0 |
unless (defined $maxRows) |
|
123
|
0 |
0 |
unless (defined $maxCols) |
|
127
|
0 |
0 |
if ($format eq 'latex') |
|
136
|
0 |
0 |
if ($$alSet{'format'} ne 'GIZA' and not $$FH{'source'} && $$FH{'target'}) |
|
144
|
0 |
0 |
if ($representation eq 'matrix') { } |
|
|
0 |
0 |
elsif ($representation eq 'enumlinks') { } |
|
153
|
0 |
0 |
if ($format eq 'latex') |
|
162
|
0 |
0 |
if ($$alSet{'format'} eq 'GIZA') { } |
|
|
0 |
0 |
elsif ($$alSet{'format'} eq 'NAACL' or $$alSet{'format'} eq 'BLINKER' or $$alSet{'format'} eq 'TALP') { } |
|
166
|
0 |
0 |
unless ($$alSet{'location'}{'source'}) |
|
216
|
1 |
0 |
unless (defined $weighted) |
|
230
|
0 |
1 |
if ($$answerAlSet{'format'} eq 'NAACL' and $alignMode eq 'as-is' and $$answerAlSet{'firstSentPair'} == 1) { } |
|
231
|
0 |
0 |
unless my $answerFH = 'IO::File'->new('<' . $$answerAlSet{'location'}{'sourceToTarget'}) |
|
237
|
0 |
0 |
if ($answerFH->eof) |
|
243
|
0 |
0 |
if ($$answerAlSet{'lastSentPair'} eq 'eof') { } |
|
278
|
0 |
1 |
if ($$submissionAlSet{'format'} eq 'NAACL' and $alignMode eq 'as-is' and $$submissionAlSet{'firstSentPair'} == 1) { } |
|
279
|
0 |
0 |
unless my $submissionFH = 'IO::File'->new('<' . $$submissionAlSet{'location'}{'sourceToTarget'}) |
|
286
|
0 |
0 |
if ($submissionFH->eof) |
|
292
|
0 |
0 |
if ($$submissionAlSet{'lastSentPair'} eq 'eof') { } |
|
337
|
0 |
1 |
if ($weighted) |
|
379
|
0 |
1 |
if ($weighted) { } |
|
413
|
54 |
5 |
if (defined $sureAnswer{$alignment}) |
|
414
|
54 |
0 |
if (not $weighted) { } |
|
422
|
54 |
5 |
if (defined $sureAnswer{$alignment} or defined $possibleAnswer{$alignment}) |
|
423
|
54 |
0 |
if (not $weighted) { } |
|
431
|
54 |
5 |
if (defined $sureAnswer{$alignment}) |
|
432
|
54 |
0 |
if (not $weighted) { } |
|
440
|
1 |
0 |
if (scalar keys %sureSubmission != 0) { } |
|
445
|
1 |
0 |
if (scalar keys %sureAnswer != 0) { } |
|
450
|
1 |
0 |
if ($sureRecall != 0 and $surePrecision != 0) { } |
|
458
|
1 |
0 |
if (scalar(keys %sureSubmission) + scalar(keys %possibleSubmission) != 0) { } |
|
463
|
1 |
0 |
if (scalar(keys %sureAnswer) + scalar(keys %possibleAnswer) != 0) { } |
|
468
|
1 |
0 |
if ($possibleRecall != 0 and $possiblePrecision != 0) { } |
|
475
|
1 |
0 |
if (scalar(keys %sureSubmission) + scalar(keys %possibleSubmission) != 0) { } |
|
489
|
0 |
0 |
if (ref $AlignmentSub eq 'ARRAY') |
|
490
|
0 |
0 |
if ($$AlignmentSub[0] eq 'Lingua::Alignment::eliminateWord') |
|
491
|
0 |
0 |
if (@$AlignmentSub < 3) { } |
|
494
|
0 |
0 |
unless ($$alSet{'location'}{$side} and $$newLocation{$side}) |
|
505
|
0 |
0 |
unless (defined $selectSubgroups) |
|
506
|
0 |
0 |
unless (defined $alignMode) |
|
507
|
0 |
0 |
unless (defined $$globals{'minPhraseFrequency'}) |
|
508
|
0 |
0 |
unless (defined $$globals{'extendGroups'}) |
|
509
|
0 |
0 |
unless (defined $$globals{'onlyGroups'}) |
|
510
|
0 |
0 |
unless (defined $$globals{'defaultActionGrouping'}) |
|
511
|
0 |
0 |
unless (defined $$globals{'defaultActionGeneral'}) |
|
512
|
0 |
0 |
unless (defined $$globals{'verbose'}) |
|
521
|
0 |
0 |
if ($selectSubgroups == 0) |
|
539
|
0 |
0 |
unless ($selectSubgroups) |
|
546
|
0 |
0 |
if ($$globals{'onlyGroups'} == 0) |
|
568
|
0 |
0 |
if ($verbose > 0) |
|
583
|
0 |
0 |
if ($j <= @{$$al{'sourceAl'};}) |
|
584
|
0 |
0 |
if ($j == @{$$al{'sourceAl'};}) { } |
|
590
|
0 |
0 |
if ($newAnchorSource - $lastAnchorSource != 1 and not $sourcePerturbed{$lastAnchorSource + 1}) { } |
|
|
0 |
0 |
elsif ($newAnchorTarget - $lastAnchorTarget != 1 and not $targetPerturbed{$lastAnchorTarget + 1}) { } |
|
595
|
0 |
0 |
unless ($al->isAnchor($i, 'target')) |
|
597
|
0 |
0 |
unless ($anchorsInTarget) |
|
599
|
0 |
0 |
if ($newPerturbationDetected) |
|
621
|
0 |
0 |
if ($selectSubgroups) { } |
|
624
|
0 |
0 |
if (do {
($ruleApplied = $perturbation->applyGrouping($groupKeys, $subGroupKeys, $globals)) > 0
}) { } |
|
632
|
0 |
0 |
if ($ruleApplied == -1) { } |
|
644
|
0 |
0 |
if ($ind > 0) |
|
649
|
0 |
0 |
if ($ind > 0) |
|
662
|
0 |
0 |
if ($newFormat eq 'NAACL' and not $selectSubgroups) |
|
663
|
0 |
0 |
if (exists $$newFH{'source'}) |
|
666
|
0 |
0 |
if (exists $$newFH{'target'}) |
|
675
|
0 |
0 |
if ($internalSentPairNum % 1000 == 0) { } |
|
|
0 |
0 |
elsif ($internalSentPairNum % 100 == 0) { } |
|
679
|
0 |
0 |
if ($verbose > 0) |
|
680
|
0 |
0 |
if ($selectSubgroups) |
|
682
|
0 |
0 |
if ($verbose > 0) |
|
686
|
0 |
0 |
if ($$globals{'onlyGroups'} == 0) |
|
696
|
0 |
0 |
if ($selectSubgroups == 0) |
|
700
|
0 |
0 |
if ($selectSubgroups) { } |
|
701
|
0 |
0 |
if ($verbose > 0) |
|
702
|
0 |
0 |
unless open GROUPS, ">$ENV/groups" |
|
705
|
0 |
0 |
if ($count >= $$globals{'minPhraseFrequency'}) |
|
709
|
0 |
0 |
if ($$globals{'onlyGroups'} == 0) |
|
710
|
0 |
0 |
unless open SUBGROUPS, ">$ENV/subGroups" |
|
713
|
0 |
0 |
if ($count >= $$globals{'minPhraseFrequency'}) |
|
729
|
0 |
0 |
if (not defined $newFormat) { } |
|
736
|
0 |
0 |
if ($verbose > 0) |
|
739
|
0 |
0 |
unless open CS, "<$corpSrc" |
|
740
|
0 |
0 |
unless open CT, "<$corpTrg" |
|
752
|
0 |
0 |
if ($verbose > 0) |
|
763
|
0 |
0 |
if ($newcorp{$pair}) |
|
768
|
0 |
0 |
if ($cntToFind == 0) |
|
769
|
0 |
0 |
if ($verbose > 0) |
|
773
|
0 |
0 |
if ($verbose > 0) |
|
774
|
0 |
0 |
if ($inputSentPairNum % 100000 == 0) |
|
775
|
0 |
0 |
if ($inputSentPairNum % 10000 == 0) |
|
778
|
0 |
0 |
if ($verbose > 0) |
|
787
|
0 |
0 |
if (exists $found{"$s ||| $t"}) { } |
|
808
|
0 |
0 |
if (not defined $newFormat) { } |
|
816
|
0 |
0 |
unless open CS, "<$corpSrc" |
|
817
|
0 |
0 |
unless open CT, "<$corpTrg" |
|
827
|
0 |
0 |
if ($verbose > 0) |
|
840
|
0 |
0 |
if (not $newcorp{"$s ||| $t"}) { } |
|
849
|
0 |
0 |
if ($verbose > 0) |
|
865
|
0 |
0 |
if ($verbose > 2) |
|
866
|
0 |
0 |
if ($verbose > 2) |
|
868
|
0 |
0 |
if ($numcs < $sMin or $numcs > $sMax or $numct < $tMin or $numct > $tMax) { } |
|
886
|
0 |
0 |
if ($sLcs == 0 or $tLcs == 0) { } |
|
892
|
0 |
0 |
if ($verbose > 1) |
|
898
|
0 |
0 |
if ($lcs > $bestLcs) { } |
|
|
0 |
0 |
elsif ($lcs == $bestLcs) { } |
|
908
|
0 |
0 |
if ($verbose > 1) |
|
909
|
0 |
0 |
if ($cnt2 > 0 and $cnt2 % 100000 == 0) { } |
|
|
0 |
0 |
elsif ($cnt2 > 0 and $cnt2 % 1000 == 0) { } |
|
917
|
0 |
0 |
if ($cntCharLevel > 1) { } |
|
931
|
0 |
0 |
if ($lcs > $bestLcs) |
|
941
|
0 |
0 |
if ($cntGoodLength == 0) { } |
|
944
|
0 |
0 |
if ($verbose > 0) |
|
948
|
0 |
0 |
if ($cntCharLevel == 1) { } |
|
954
|
0 |
0 |
if ($verbose > 2) |
|
970
|
0 |
0 |
if ($$change[0] eq '-') { } |
|
982
|
0 |
0 |
if ($numDel == 0) { } |
|
1003
|
0 |
0 |
if ($verbose > 2) |
|
1017
|
0 |
0 |
if ($$change[0] eq '-') { } |
|
1028
|
0 |
0 |
if ($numDel == 0) { } |
|
1046
|
0 |
0 |
if ($verbose > 0) |
|
1070
|
1 |
1 |
unless (ref $location) |
|
1081
|
0 |
2 |
if ($numLimits == 0 or $numLimits > 2) { } |
|
|
1 |
1 |
elsif ($numLimits == 1) { } |
|
1088
|
0 |
2 |
if (not $limits[0] =~ /\d+/ or $limits[0] == 0) { } |
|
1093
|
1 |
1 |
if (not $limits[1] =~ /\d+/ or $limits[1] == 0) { } |
|
1107
|
0 |
1 |
if ($$refToLocation{'source'}) |
|
1109
|
0 |
0 |
if ($sourceFileName =~ /^(EN|FR)\.sample.\d+$/) |
|
1115
|
1 |
0 |
if (not $$refToLocation{'sampleNum'}) |
|
1127
|
0 |
2 |
if ($openMode eq '>') |
|
1128
|
0 |
0 |
if ($format eq 'BLINKER') |
|
1135
|
0 |
0 |
if ($oldFiles{$newFile} and $key ne 'sampleNum') |
|
1143
|
0 |
0 |
if ($format eq 'BLINKER') { } |
|
1146
|
0 |
0 |
if ($$location{'targetToSource'}) |
|
1149
|
0 |
0 |
if ($$location{'source'}) |
|
1152
|
0 |
0 |
if ($$location{'target'}) |
|
1158
|
0 |
2 |
if ($format eq 'GIZA') { } |
|
|
1 |
1 |
elsif ($format eq 'NAACL' or $format eq 'TALP') { } |
|
|
1 |
0 |
elsif ($format eq 'BLINKER') { } |
|
1159
|
0 |
0 |
unless $FH{'sourceToTarget'} = 'IO::File'->new($openMode . $$location{'sourceToTarget'}) |
|
1160
|
0 |
0 |
if ($$location{'targetToSource'}) |
|
1161
|
0 |
0 |
unless $FH{'targetToSource'} = 'IO::File'->new($openMode . $$location{'targetToSource'}) |
|
1164
|
1 |
0 |
if ($$location{'source'}) |
|
1165
|
0 |
1 |
unless $FH{'source'} = 'IO::File'->new($openMode . $$location{'source'}) |
|
1167
|
1 |
0 |
if ($$location{'target'}) |
|
1168
|
0 |
1 |
unless $FH{'target'} = 'IO::File'->new($openMode . $$location{'target'}) |
|
1170
|
0 |
1 |
unless $FH{'sourceToTarget'} = 'IO::File'->new($openMode . $$location{'sourceToTarget'}) |
|
1171
|
0 |
1 |
if ($$location{'targetToSource'}) |
|
1172
|
0 |
0 |
unless $FH{'targetToSource'} = 'IO::File'->new($openMode . $$location{'targetToSource'}) |
|
1175
|
0 |
1 |
if ($$location{'source'}) |
|
1176
|
0 |
0 |
unless $FH{'source'} = 'IO::File'->new($openMode . $$location{'source'}) |
|
1178
|
0 |
1 |
if ($$location{'target'}) |
|
1179
|
0 |
0 |
unless $FH{'target'} = 'IO::File'->new($openMode . $$location{'target'}) |
|
1192
|
0 |
0 |
if ($type eq 'dir') { } |
|
|
0 |
0 |
elsif ($type eq 'file') { } |
|
1193
|
0 |
0 |
unless (-e $path and -d _) |
|
1198
|
0 |
0 |
if ($path =~ m[/]) |
|
1200
|
0 |
0 |
unless (-e $dir) |
|
1215
|
0 |
2 |
if ($$alSet{'format'} eq 'TALP') { } |
|
|
0 |
2 |
elsif ($$alSet{'format'} eq 'GIZA') { } |
|
|
1 |
1 |
elsif ($$alSet{'format'} eq 'NAACL') { } |
|
|
1 |
0 |
elsif ($$alSet{'format'} eq 'BLINKER') { } |
|
1217
|
0 |
0 |
if ($FH{'source'}) |
|
1220
|
0 |
0 |
if ($FH{'target'}) |
|
1223
|
0 |
0 |
if ($FH{'sourceToTarget'}) |
|
1226
|
0 |
0 |
if ($FH{'targetToSource'}) |
|
1235
|
0 |
0 |
if ($FH{'targetToSource'}) |
|
1243
|
0 |
0 |
if ($FH{'source'}) |
|
1246
|
0 |
0 |
if ($FH{'target'}) |
|
1253
|
0 |
0 |
if ($FH{'sourceToTarget'}->eof) |
|
1257
|
0 |
0 |
if ($FH{'targetToSource'}) |
|
1262
|
0 |
0 |
if ($FH{'targetToSource'}->eof) |
|
1269
|
0 |
1 |
if ($FH{'source'}) |
|
1274
|
0 |
1 |
if ($FH{'target'}) |
|
1287
|
0 |
2 |
if ($format eq 'GIZA') { } |
|
|
1 |
1 |
elsif ($format eq 'NAACL' or $format eq 'TALP') { } |
|
|
1 |
0 |
elsif ($format eq 'BLINKER') { } |
|
1289
|
0 |
0 |
if ($$FH{'targetToSource'}) |
|
1293
|
1 |
0 |
if ($$FH{'source'}) |
|
1296
|
1 |
0 |
if ($$FH{'target'}) |
|
1299
|
1 |
0 |
if ($$FH{'sourceToTarget'}) |
|
1302
|
0 |
1 |
if ($$FH{'targetToSource'}) |
|
1306
|
0 |
1 |
if ($$FH{'source'}) |
|
1309
|
0 |
1 |
if ($$FH{'target'}) |
|
1325
|
0 |
22 |
if (not defined $alignMode or $alignMode =~ /^as.?is$/i) { } |
|
|
0 |
22 |
elsif ($alignMode =~ /^null.?align$/i) { } |
|
|
22 |
0 |
elsif ($alignMode =~ /^no.?null.?align$/i) { } |
|
1334
|
0 |
22 |
if ($$alSet{'format'} eq 'TALP') { } |
|
|
0 |
22 |
elsif ($$alSet{'format'} eq 'GIZA') { } |
|
|
11 |
11 |
elsif ($$alSet{'format'} eq 'NAACL') { } |
|
|
11 |
0 |
elsif ($$alSet{'format'} eq 'BLINKER') { } |
|
1335
|
0 |
0 |
if ($$alSet{'lastSentPair'} eq 'eof') { } |
|
1340
|
0 |
0 |
if ($theEnd) { } |
|
1343
|
0 |
0 |
if ($$alFH{'source'}) |
|
1346
|
0 |
0 |
if ($$alFH{'target'}) |
|
1349
|
0 |
0 |
if ($$alFH{'sourceToTarget'}) |
|
1352
|
0 |
0 |
if ($$alFH{'targetToSource'}) |
|
1359
|
0 |
0 |
if ($$alSet{'lastSentPair'} eq 'eof') { } |
|
1364
|
0 |
0 |
if ($theEnd) { } |
|
1370
|
0 |
0 |
if ($$alFH{'targetToSource'}) |
|
1380
|
0 |
11 |
if ($$alSet{'lastSentPair'} eq 'eof') { } |
|
1385
|
1 |
10 |
if ($theEnd) { } |
|
1388
|
10 |
0 |
if ($$alFH{'source'}) |
|
1393
|
10 |
0 |
if ($$alFH{'target'}) |
|
1401
|
10 |
0 |
if ($num == $sentPairNum) |
|
1410
|
0 |
10 |
if ($$alFH{'targetToSource'}) |
|
1414
|
0 |
0 |
if ($num == $sentPairNum) |
|
1428
|
11 |
0 |
if ($$alSet{'lastSentPair'} eq 'eof') { } |
|
1433
|
1 |
10 |
if ($theEnd) { } |
|
1436
|
0 |
10 |
if ($$alFH{'source'}) |
|
1439
|
0 |
10 |
if ($$alFH{'target'}) |
|
1445
|
0 |
10 |
if ($$alSet{'location'}{'targetToSource'}) |
|
1454
|
0 |
20 |
if ($alignMode eq 'null-align') { } |
|
|
20 |
0 |
elsif ($alignMode eq 'no-null-align') { } |
|
1467
|
0 |
0 |
if ($$newLocation{'source'}) { } |
|
1470
|
0 |
0 |
if ($$alSet{'firstSentPair'} != 1 or $$alSet{'format'} ne $newFormat) |
|
1477
|
0 |
0 |
if ($$newLocation{'target'}) { } |
|
1480
|
0 |
0 |
if ($$alSet{'firstSentPair'} != 1 or $$alSet{'format'} ne $newFormat) |
|
1488
|
0 |
0 |
if ($newFormat eq 'BLINKER') { } |
|
|
0 |
0 |
elsif (exists $$alSet{'location'}{'sampleNum'}) { } |
|
1501
|
0 |
0 |
if (not defined $newFormat) { } |
|
1513
|
0 |
0 |
if (defined $AlignmentSub) |
|
1515
|
0 |
0 |
if (ref $AlignmentSub eq 'ARRAY') { } |
|
1537
|
0 |
0 |
if (not defined $newFormat) { } |
|
1556
|
0 |
0 |
if (@{$$clusters[$c]{'source'};} > 1 or @{$$clusters[$c]{'target'};} > 1) |
|
1560
|
0 |
0 |
if ($clone->isIn('sourceAl', $j, $k)) |
|
1593
|
0 |
149 |
if (scalar @components < 3) |
|
1601
|
0 |
0 |
if (scalar @components == 3 or scalar @components == 4 and $components[3] =~ /^[\d\.]+$/ || $components[3] eq 'S' or scalar @components == 5 and $components[3] eq 'S' || $components[4] eq 'S') |
|
1607
|
0 |
0 |
if (scalar @components == 4 and $components[3] eq 'P' or scalar @components == 5 and $components[3] eq 'P' || $components[4] eq 'P') |