| line |
true |
false |
branch |
|
614
|
0 |
7 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
|
7 |
0 |
elsif (@_ > 1 and not @_ % 2) { } |
|
|
0 |
0 |
elsif (@_ > 0) { } |
|
622
|
0 |
7 |
if $DEBUG > 5 |
|
627
|
0 |
7 |
unless $self |
|
633
|
0 |
0 |
$options{'die_on_bad_translation'} ? : |
|
|
0 |
7 |
$$self{'die_on_bad_translation'} ? : |
|
|
0 |
7 |
exists $options{'die_on_bad_translation'} ? : |
|
634
|
0 |
0 |
$options{'translate_arguments'} ? : |
|
|
0 |
0 |
$$self{'translate_arguments'} ? : |
|
|
0 |
7 |
exists $$self{'translate_arguments'} ? : |
|
|
0 |
7 |
exists $options{'translate_arguments'} ? : |
|
635
|
0 |
0 |
$options{'add_newline'} ? : |
|
|
0 |
7 |
$$self{'add_newline'} ? : |
|
|
0 |
7 |
exists $options{'add_newline'} ? : |
|
636
|
0 |
0 |
$options{'panic_language_lookup'} ? : |
|
|
0 |
7 |
$$self{'panic_language_lookup'} ? : |
|
|
0 |
7 |
exists $options{'panic_language_lookup'} ? : |
|
643
|
0 |
7 |
if $DEBUG > 7 |
|
728
|
0 |
26 |
unless @_ > 2 |
|
730
|
0 |
26 |
unless defined $key and length $key |
|
731
|
0 |
26 |
if defined $context and ref $context ne 'SCALAR' |
|
732
|
0 |
26 |
if $DEBUG |
|
752
|
11 |
15 |
unless defined $rule_obj |
|
763
|
0 |
26 |
if $DEBUG |
|
764
|
0 |
26 |
if $$self{'add_newline'} |
|
781
|
0 |
22 |
unless @_ > 1 |
|
798
|
0 |
0 |
unless @_ > 2 |
|
817
|
0 |
0 |
unless @_ > 1 |
|
849
|
8 |
0 |
unless $options |
|
851
|
8 |
0 |
if (ref $self) |
|
852
|
8 |
0 |
unless (exists $$options{'numeric_format'}) |
|
853
|
8 |
0 |
if ($$self{'numeric_format'}) { } |
|
864
|
8 |
0 |
unless $can |
|
865
|
0 |
0 |
if $DEBUG > 3 |
|
945
|
4 |
0 |
if (@_) |
|
947
|
1 |
3 |
if (@_ > 1) { } |
|
951
|
4 |
0 |
$$self{'numeric_format'} ? : |
|
1047
|
1 |
3 |
unless $this |
|
1048
|
1 |
2 |
unless @_ > 0 |
|
1072
|
1 |
3 |
unless $this |
|
1073
|
1 |
2 |
unless @_ > 0 |
|
1111
|
6 |
1 |
if (exists $$options{'backing_store'}) { } |
|
|
0 |
1 |
elsif (exists $$options{'backing_store'}) { } |
|
1117
|
0 |
1 |
unless $backing_store |
|
1118
|
0 |
1 |
if $DEBUG > 1 |
|
1122
|
1 |
6 |
if (not ref $backing_store) { } |
|
1126
|
0 |
1 |
if $@ |
|
1130
|
0 |
1 |
if $@ |
|
1131
|
0 |
1 |
unless $store |
|
1137
|
6 |
1 |
if exists $$options{'backing_store'} |
|
1140
|
0 |
7 |
unless $store->isa('Locale::MakePhrase::BackingStore') |
|
1160
|
0 |
7 |
if (exists $$options{'rule_manager'}) { } |
|
|
0 |
7 |
elsif (exists $$self{'rule_manager'}) { } |
|
1165
|
0 |
7 |
if $DEBUG > 1 |
|
1170
|
7 |
0 |
if (not ref $rule_manager) { } |
|
1174
|
0 |
7 |
if $@ |
|
1178
|
0 |
7 |
if $@ or not $manager |
|
1184
|
0 |
7 |
if exists $$options{'rule_manager'} |
|
1187
|
0 |
7 |
unless $manager->isa('Locale::MakePhrase::RuleManager') |
|
1227
|
7 |
0 |
if (exists $$options{'language'}) { } |
|
|
0 |
0 |
elsif (exists $$options{'languages'} and ref $$options{'languages'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (exists $$options{'languages'}) { } |
|
|
0 |
0 |
elsif (exists $$self{'language'}) { } |
|
|
0 |
0 |
elsif (exists $$self{'languages'} and ref $$self{'languages'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (exists $$self{'languages'}) { } |
|
1249
|
0 |
7 |
if ($$self{'panic_language_lookup'}) |
|
1255
|
0 |
7 |
unless $fallback |
|
1263
|
7 |
12 |
if I18N::LangTags::same_language_tag($l, $lang) |
|
1275
|
0 |
13 |
unless $lang |
|
1281
|
0 |
7 |
if $DEBUG > 1 |
|
1295
|
0 |
7 |
if (exists $$options{'charset'}) { } |
|
|
0 |
7 |
elsif (exists $$options{'encoding'}) { } |
|
|
0 |
7 |
elsif (exists $$self{'charset'}) { } |
|
|
0 |
7 |
elsif (exists $$self{'encoding'}) { } |
|
1304
|
0 |
7 |
unless $encoding |
|
1318
|
0 |
7 |
if (exists $$options{'malformed_character_mode'}) { } |
|
|
0 |
7 |
elsif (exists $$self{'malformed_character_mode'}) { } |
|
1323
|
0 |
0 |
if (not defined $mode or $mode != MALFORMED_MODE_ESCAPE() and $mode != MALFORMED_MODE_HTML() and $mode != MALFORMED_MODE_XML()) |
|
1335
|
7 |
4 |
unless $options |
|
1337
|
4 |
7 |
if (exists $$options{'numeric_format'}) { } |
|
|
0 |
14 |
elsif (exists $$self{'numeric_format'} and defined $$self{'numeric_format'}) { } |
|
1342
|
0 |
11 |
unless defined $mode |
|
1343
|
0 |
11 |
if ref $mode eq '' |
|
1344
|
0 |
11 |
unless ref $mode eq 'ARRAY' |
|
1345
|
0 |
11 |
if @$mode == 0 |
|
1346
|
0 |
11 |
if @$mode == 1 |
|
1347
|
0 |
11 |
if @$mode == 2 |
|
1348
|
0 |
11 |
if @$mode == 3 |
|
1349
|
0 |
11 |
unless @$mode == 4 |
|
1351
|
0 |
44 |
unless defined $$mode[$_] |
|
1353
|
0 |
11 |
if join(',', $mode) eq join(',', 'Locale::MakePhrase::Numeric'->DOT) |
|
1376
|
0 |
50 |
if $DEBUG > 2 |
|
1378
|
7 |
43 |
unless $@ |
|
1381
|
6 |
7 |
unless $module |
|
1382
|
0 |
7 |
if $DEBUG > 2 |
|
1387
|
0 |
7 |
if $@ |
|
1390
|
0 |
7 |
if $DEBUG > 1 |
|
1404
|
9 |
17 |
if not defined $rule_objs or @{$rule_objs;} < 1 |
|
1405
|
6 |
11 |
if @{$rule_objs;} == 1 |
|
1418
|
9 |
17 |
unless $rule_objs |
|
1424
|
6 |
17 |
unless length $expression |
|
1426
|
0 |
17 |
if ($@) |
|
1427
|
0 |
0 |
if $$self{'die_on_bad_translation'} |
|
1431
|
9 |
8 |
if $result |
|
1455
|
26 |
0 |
if $$self{'encoding'} eq $internal_encoding |
|
1473
|
0 |
0 |
unless $func eq 'mp' or $func eq '_' |
|
1478
|
0 |
0 |
if $DEBUG > 1 |
|
1480
|
0 |
0 |
unless $can |