| line |
true |
false |
branch |
|
381
|
0 |
0 |
if (defined $type) |
|
383
|
0 |
0 |
exists $ok{$type} ? : |
|
398
|
0 |
0 |
if (defined @{$$self{'direction'};} and $self->is_supported_dir(@{$$self{'direction'};})) { } |
|
410
|
0 |
0 |
if ($self->is_supported_dir($src_lang_code, $dest_lang_code)) |
|
420
|
0 |
0 |
unless defined $src_lang_code and defined $dest_lang_code |
|
422
|
0 |
0 |
if ($self->is_supported_dir($src_lang_code, $dest_lang_code)) |
|
468
|
0 |
0 |
unless (is_known_lang($_)) |
|
498
|
0 |
0 |
unless (${$$self{'languages'};}{$src_lang_code}) |
|
505
|
0 |
0 |
unless (${$$self{'languages'};}{$dest_lang_code}) |
|
530
|
0 |
0 |
unless (${$$self{'languages'};}{$src_lang_code}) |
|
537
|
0 |
0 |
unless (${$$self{'languages'};}{$dest_lang_code}) |
|
583
|
0 |
0 |
unless (${$$self{'languages'};}{$src_lang_code}) |
|
591
|
0 |
0 |
if $dest_lang_code eq $src_lang_code |
|
630
|
0 |
0 |
unless (${$$self{'languages'};}{$dest_lang_code}) |
|
638
|
0 |
0 |
if $src_lang_code eq $dest_lang_code |
|
747
|
0 |
0 |
if ($self->is_supported_dir($src_lang_code, $dest_lang_code)) |
|
774
|
0 |
0 |
if $self->is_supported_dir($src_lang_code, $dest_lang_code) |
|
806
|
0 |
0 |
unless (scalar keys %{$$self{'directions'};} > 0) |
|
812
|
0 |
0 |
unless defined $src_lang_code and defined $dest_lang_code |
|
815
|
0 |
0 |
unless ($self->is_supported_dir($src_lang_code, $dest_lang_code)) |
|
834
|
0 |
0 |
if ($response->is_error) |
|
836
|
0 |
0 |
if ($response->code =~ /50[03]/) { } |
|
861
|
0 |
0 |
$$self{'matching'} == 4 ? : |
|
|
0 |
0 |
$$self{'matching'} == 3 ? : |
|
|
0 |
0 |
$$self{'matching'} == 2 ? : |
|
|
0 |
0 |
$$self{'matching'} == 1 ? : |
|
|
0 |
0 |
unless $$self{'matching'} == 1 ? &is_exact_match($expression, $left) : ($$self{'matching'} == 2 ? &is_match_at_start($expression, $left, $at_bounds) : ($$self{'matching'} == 3 ? &is_match_expr($expression, $left, $at_bounds) : ($$self{'matching'} == 4 ? &is_match_words($expression, $left, $at_bounds) : 1))) |
|
930
|
0 |
0 |
$$self{'matching'} == 4 ? : |
|
|
0 |
0 |
$$self{'matching'} == 3 ? : |
|
|
0 |
0 |
$$self{'matching'} == 2 ? : |
|
|
0 |
0 |
$$self{'matching'} == 1 ? : |
|
935
|
0 |
0 |
if $$self{'match_at_bounds'} |
|
984
|
0 |
0 |
$at_bounds ? : |
|
1006
|
0 |
0 |
$at_bounds ? : |
|
1031
|
0 |
0 |
$at_bounds ? : |
|
|
0 |
0 |
unless $at_bounds ? $found_stripped =~ /\b\Q$word\E\b/g : $found_stripped =~ /\Q$word\E/g |
|
1050
|
0 |
0 |
unless &Encode::is_utf8($expr) |
|
1079
|
0 |
0 |
&Encode::is_utf8($str_unescaped) ? : |
|
1115
|
0 |
0 |
unless scalar keys %{$$self{'directions'};} > 0 |
|
1119
|
0 |
0 |
if @options < 7 |
|
1124
|
0 |
0 |
if ($help or @ARGV == 0) |
|
1143
|
0 |
0 |
if (@translations and not $translations[0] =~ /=/) |
|
1153
|
0 |
0 |
unless $i == @ARGV |
|
1156
|
0 |
0 |
if $append |
|
1190
|
0 |
0 |
if (defined $matching_str) |
|
1198
|
0 |
0 |
$matching_str eq 'all' ? : |
|
|
0 |
0 |
$matching_str eq 'words' ? : |
|
|
0 |
0 |
$matching_str eq 'expr' ? : |
|
|
0 |
0 |
$matching_str eq 'start' ? : |
|
|
0 |
0 |
$matching_str eq 'exact' ? : |
|
1204
|
0 |
0 |
if (defined $direction and not $direction =~ /2/) |
|
1210
|
0 |
0 |
defined $direction ? : |
|
1226
|
0 |
0 |
unless (defined $script) |
|
1236
|
0 |
0 |
$matching == 4 ? : |
|
|
0 |
0 |
$matching == 3 ? : |
|
|
0 |
0 |
$matching == 2 ? : |
|
|
0 |
0 |
$matching == 1 ? : |
|
1250
|
0 |
0 |
unless $self->is_supported_dir($src_lang_code, $dest_lang_code) |
|
1258
|
0 |
0 |
if $src_lang_code eq $def_src_lang_code and $dest_lang_code eq $def_dest_lang_code |
|
1302
|
0 |
0 |
unless $self->is_supported_dir($src_lang_code, $dest_lang_code) |
|
1308
|
0 |
0 |
if $dir_width > $max_dir_width |
|
1311
|
0 |
0 |
if $lcol_width > $max_lcol_width |
|
1314
|
0 |
0 |
if $rcol_width > $max_rcol_width |
|
1327
|
0 |
0 |
if defined $val |