Branch Coverage

blib/lib/Locale/Babelfish.pm
Criterion Covered Total %
branch 54 92 58.7


line true false branch
74 0 3 if scalar @_ == 0
93 0 0 unless $self->{'watch'}
97 0 0 if (not defined $mtime && defined $new_mtime or $new_mtime != $mtime)
102 0 0 if $ok
111 0 28 unless $dictname_key
113 0 28 if $dictname_key =~ /\P{ASCII}/
115 0 28 $custom_locale ? :
119 25 3 if (defined $r) { }
120 11 14 if (ref $r eq 'SCALAR') { }
6 8 elsif (ref $r eq 'ARRAY') { }
134 0 3 if (exists $self->{'fallback_cache'}{$locale}{$dictname_key}) { }
141 1 1 if (defined $r)
142 1 0 if (ref $r eq 'SCALAR') { }
0 0 elsif (ref $r eq 'ARRAY') { }
158 23 5 if (ref $r eq "CODE")
161 20 3 if (defined $params)
163 3 17 if (ref $params eq '') { }
192 0 1 if $dictname_key =~ /\P{ASCII}/
194 0 1 $custom_locale ? :
196 1 0 if $self->{'dictionaries'}{$locale}{$dictname_key}
200 0 0 defined $self->{'fallback_cache'}{$locale}{$dictname_key} ? :
0 0 if exists $self->{'fallback_cache'}{$locale}{$dictname_key}
204 0 0 if defined $self->{'dictionaries'}{$_}{$dictname_key}
220 6 8 unless -f $file
226 0 8 unless $cur_suffix eq $self->suffix
229 0 8 if $tmp[-1] eq "tt"
230 0 8 if ($tmp[-1] eq "js")
235 0 0 if -f "File::Spec"->catpath($volume, $directories, join(".", @tmp) . ".tt.$lang.$cur_suffix")
239 6 2 if ($subdir =~ m[\A\Q$fdir\E[\\/](.+)\z])
260 8 0 unless $self->watch
268 0 27 unless defined $phrase
281 15 12 if ($self->phrase_need_compilation($value, $key))
294 3 1 if $self->dictionaries->{$locale}
296 0 1 if @alt_locales > 1
300 1 0 if ($alt_locale and $self->dictionaries->{$alt_locale})
306 0 1 if exists $self->fallback_cache->{$alt_locale}
309 1 0 if exists $self->fallbacks->{$alt_locale}
313 0 0 if $self->dictionaries->{$self->{'default_locale'}}
320 0 1 unless scalar @fallback_locales
324 0 1 if scalar @fallback_locales == 1 and ref $fallback_locales[0] eq "ARRAY"
339 10 48 if (ref $value eq 'HASH') { }
354 8 6 if (ref $item eq 'HASH') { }
4 2 elsif (ref $item ne 'HASH' and defined $item) { }
369 4 10 if (ref $item eq 'CODE') { }
8 2 elsif (ref $item eq 'HASH') { }
375 4 8 if (ref $value eq "CODE")