Branch Coverage

blib/lib/Locale/gettext_pp.pm
Criterion Covered Total %
branch 58 200 29.0


line true false branch
58 22 0 if (-d $dir)
76 0 22 unless (defined $has_messages and length $has_messages)
84 0 0 if ($five_ok)
89 22 0 if (defined $has_messages and length $has_messages) { }
0 0 elsif ($five_ok) { }
221 15 193 if defined $new_domain and length $new_domain
232 665 0 if (defined $domain and length $domain) { }
233 37 628 if (defined $directory and length $directory) { }
626 2 elsif (exists $Locale::gettext_pp::__gettext_pp_domain_bindings->{$domain}) { }
241 0 665 unless defined $retval and length $retval
253 2 0 if (defined $domain and length $domain)
254 2 0 if (defined $codeset and length $codeset) { }
0 0 elsif (exists $Locale::gettext_pp::__gettext_pp_domain_codeset_bindings->{$domain}) { }
348 0 664 unless defined $msgid
352 285 379 if defined $msgctxt
353 285 379 defined $msgctxt ? :
358 283 381 unless defined $domainname and length $domainname
372 0 0 if ($this_domain and defined $this_domain->{'messages'}{$msg_ctxt_id})
380 664 0 unless @trans
383 522 142 if ($plural)
384 0 522 if ($domain) { }
387 0 0 unless defined $plural
388 0 0 unless defined $nplurals
389 0 0 if $nplurals <= $plural
394 522 0 if defined $trans[$plural]
397 0 664 if ($found and defined $domain->{'po_header'}{'charset'})
402 0 0 unless defined $output_codeset
405 0 0 unless defined $output_codeset
407 0 0 unless (defined $output_codeset)
411 0 0 if $lc_ctype =~ /^[a-z]{2}(?:_[A-Z]{2})?\.([^\@]+)/l
417 0 0 unless defined $output_codeset
419 0 0 if (exists $Locale::gettext_pp::__gettext_pp_domain_cache->{$output_codeset}) { }
422 0 0 if lc $output_codeset eq "utf8"
428 0 0 if (defined $output_codeset and $output_codeset ne $domain->{'po_header'}{'charset'})
433 0 0 if (exists $Locale::gettext_pp::__gettext_pp_recoders->{$input_codeset}{$output_codeset}) { }
458 0 525 unless defined $envspec
459 0 525 unless length $envspec
460 0 525 if substr($envspec, 0, 1) eq "="
467 0 525 if ($^O eq 'MSWin32') { }
468 0 0 unless defined $value
469 0 0 if (length $value) { }
475 407 118 if (defined $value) { }
493 0 624 if ($ENV{'DEBUGME'})
503 7 617 unless defined $language
504 0 0 if (not $language_preference or $language eq "C" or $language eq "POSIX")
508 0 0 if (defined $language and length $language) { }
0 0 elsif (not defined $locale) { }
528 0 35 if ($locale =~ /^([a-z][a-z])
534 0 0 if (defined $3)
535 0 0 defined $2 ? :
539 0 0 if (defined $2)
543 0 0 if (defined $1)
544 0 0 if defined $1
559 0 664 if ($category != &LC_MESSAGES())
564 40 615 if (not defined $locale and $category != 1729 and not defined $ENV{'LANGUAGE'} and not length $ENV{'LANGUAGE'})
567 40 0 if (not defined $locale or "C" eq $locale or "POSIX" eq $locale)
572 0 624 unless defined $domainname and length $domainname
576 0 624 unless defined $dir and length $dir
578 0 624 unless defined $dir and length $dir
584 589 35 if defined $domains
585 0 35 unless @locales
590 35 0 if $Locale::gettext_pp::__gettext_pp_default_dir and $dir ne $Locale::gettext_pp::__gettext_pp_default_dir
599 0 70 if $loaded{$try}
602 0 70 if $seen{$fulldir}++
607 33 37 if $Locale::gettext_pp::__gettext_pp_unavailable_dirs->{$fulldir}
608 37 0 unless -d $fulldir
612 0 0 unless $domain
621 35 0 unless defined $domains
637 0 0 unless -f $filename and -r $filename
642 0 0 unless open HANDLE, "<$filename"
649 0 0 if not defined $raw or length $raw < 28
660 0 0 if ($domain->{'magic'} == 3725722773) { }
0 0 elsif ($domain->{'magic'} != 2500072158) { }
672 0 0 if $major != 0
681 0 0 if $msgids_off + 4 * $num_strings > $filesize
682 0 0 if $msgstrs_off + 4 * $num_strings > $filesize
697 0 0 if $orig_offset + $orig_length > $filesize
698 0 0 if $trans_offset + $trans_length > $filesize
706 0 0 unless defined $msgid and length $msgid
716 0 0 if ($null_entry)
726 0 0 if (exists $domain->{'po_header'}{'content_type'})
728 0 0 if ($content_type =~ s/.*=//l)
745 0 0 unless (defined $domain->{'po_header'}{'charset'} and length $domain->{'po_header'}{'charset'} and $locale =~ /^(?:[a-z][a-z])
755 0 0 if (defined $domain->{'po_header'}{'charset'})
776 0 0 if (defined $value and $value ne "C" and $value ne "POSIX" and not $value =~ /^[a-z][a-z]
785 0 624 unless ($value)
787 0 0 unless defined $value and length $value
788 0 0 unless defined $value and length $value
789 0 0 unless defined $value and length $value
800 0 0 unless (defined $has_nl_langinfo)
807 0 0 if ($has_nl_langinfo)
811 0 0 if $had_lc_all
818 0 0 if defined $lc_all
822 0 0 if ($saved_locale)
825 0 0 if ($had_lc_all) { }
826 0 0 if $had_lc_all
842 1 0 if ($code =~ m[^($s*
860 1 0 if (length $code)
876 0 1 if $@
880 0 1 unless $plural_func