| line |
true |
false |
branch |
|
104
|
2 |
0 |
unless $@ |
|
113
|
0 |
2 |
unless defined $options{'src'} and defined $options{'dest'} |
|
116
|
0 |
2 |
unless is_language_tag($$self{'src'} = delete $options{'src'}) |
|
119
|
0 |
2 |
unless is_language_tag($$self{'dest'} = delete $options{'dest'}) |
|
128
|
0 |
4 |
if exists $options{$option} |
|
132
|
0 |
2 |
if keys %options |
|
147
|
0 |
2 |
if ($$self{'back_end_options'} and my $code_ref = $$self{'back_end'}->can('save_config')) { } |
|
159
|
2 |
0 |
unless $$self{'back_end_options'} |
|
182
|
1 |
1 |
if ($Lingua::Translate::have_map_utf8 and lc $source_encoding ne 'utf8') |
|
188
|
2 |
0 |
unless $$self{'worker'} |
|
193
|
1 |
3 |
unless $@ |
|
196
|
1 |
1 |
if ($translated) { } |
|
198
|
1 |
0 |
if ($Lingua::Translate::have_map_utf8 and lc $dest_encoding ne 'utf8') |
|
226
|
3 |
2 |
unless ($back_end =~ /::/) |
|
230
|
0 |
5 |
if ($@) |
|
247
|
0 |
7 |
if (UNIVERSAL::isa($_[0], 'Lingua::Translate')) { } |
|
255
|
3 |
6 |
if ($option eq 'back_end') { } |
|
|
3 |
3 |
elsif ($option eq 'src_enc') { } |
|
|
3 |
0 |
elsif ($option eq 'dest_enc') { } |
|
|
0 |
0 |
elsif (my $code_ref = UNIVERSAL::can($$self{'back_end'}, 'config')) { } |
|
267
|
0 |
3 |
if $Lingua::Translate::have_map_utf8 and not utf8_supported_charset($value) |
|
275
|
0 |
3 |
if $Lingua::Translate::have_map_utf8 and not utf8_supported_charset($value) |