Branch Coverage

blib/lib/AltaVista/BabelFish.pm
Criterion Covered Total %
branch 7 88 7.9


line true false branch
98 3 5 defined $$args_ref{'source'} && exists $lang{$$args_ref{'source'}} ? :
114 8 0 if defined $_source and exists $lang{$_source}
116 5 3 unless (defined $target{$ident} and grep /^\Q$target{$ident}\E$/, @{$lang{$source{$ident}}{'targets'};})
131 8 0 if defined $_target and exists $lang{$_target} and grep /^\Q$target{$ident}\E$/, @{$lang{$source{$ident}}{'targets'};}
137 16 0 exists $lang{$_lang} ? :
144 0 0 if exists $lang{$_lang}{'native'}
155 0 0 defined $_lang && exists $lang{$_lang} ? :
157 0 0 if ($_lang)
160 0 0 if grep /^\Q$_lang\E$/, @{$lang{$_}{'targets'};}
170 0 0 defined $_lang && exists $lang{$_lang} ? :
180 0 0 if $_source
181 0 0 if $_target
183 0 0 if (ref $text eq 'ARRAY') { }
186 0 0 unless my($pre, $x, $y) = $self->translate($str)
188 0 0 if $_source
189 0 0 if $_target
191 0 0 if wantarray
206 0 0 unless $res->is_success
208 0 0 unless $res->is_success
220 0 0 unless defined $tr
221 0 0 unless defined $k
222 0 0 unless defined $i
224 0 0 if $_source
225 0 0 if $_target
227 0 0 if wantarray
243 0 0 if ($@)
256 0 0 if (defined $mod) { }
257 0 0 if ($VERSION eq $mod->cpan_version) { }
258 0 0 if (ref $ior)
269 0 0 if ref $ior
272 0 0 unless ref $ior
275 0 0 if (ref $ior)
288 0 0 -t STDIN ? :
290 0 0 $html ? :
298 0 0 $use_native && $src ne 'en' ? :
301 0 0 $native && $native ne $english ? :
302 0 0 if $html
304 0 0 if $html
306 0 0 if $html
308 0 0 if $html
310 0 0 if $html
311 0 0 if $html
315 0 0 if $html
317 0 0 if (not defined wantarray) { }