Branch Coverage

blib/lib/Locale/gettext_pp.pm
Criterion Covered Total %
branch 116 196 59.1


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 50 0 if (defined $domain and length $domain) { }
233 37 13 if (defined $directory and length $directory) { }
11 2 elsif (exists $Locale::gettext_pp::__gettext_pp_domain_bindings->{$domain}) { }
241 0 50 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 5 4 if ($this_domain and defined $this_domain->{'messages'}{$msg_ctxt_id})
380 659 5 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 5 659 if ($found and defined $domain->{'po_header'}{'charset'})
402 5 0 unless defined $output_codeset
405 5 0 unless defined $output_codeset
407 5 0 unless (defined $output_codeset)
411 0 5 if $lc_ctype =~ /^[a-z]{2}(?:_[A-Z]{2})?\.([^\@]+)/l
417 5 0 unless defined $output_codeset
419 3 2 if (exists $Locale::gettext_pp::__gettext_pp_domain_cache->{$output_codeset}) { }
422 0 2 if lc $output_codeset eq 'utf8'
428 0 5 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) { }
496 2 7 if (defined $ENV{'LANGUAGE'} and length $ENV{'LANGUAGE'}) { }
0 7 elsif (not defined $locale) { }
517 1 1 if ($locale =~ /^([a-z][a-z]) (?:(_[A-Z][A-Z])? (\.[-_A-Za-z0-9]+)? )? (\@[-_A-Za-z0-9]+)?$/lx)
523 0 1 if (defined $3)
524 0 0 defined $2 ? :
528 1 0 if (defined $2)
532 1 0 if (defined $1)
533 1 0 if defined $1
548 0 664 if ($category != &LC_MESSAGES())
553 655 9 if (not defined $locale and $category != 1729)
555 655 0 if (not defined $locale or 'C' eq $locale or 'POSIX' eq $locale)
560 0 9 unless defined $domainname and length $domainname
564 0 9 unless defined $dir and length $dir
566 0 9 unless defined $dir and length $dir
572 7 2 if defined $domains
573 0 2 unless @locales
578 2 0 if $Locale::gettext_pp::__gettext_pp_default_dir and $dir ne $Locale::gettext_pp::__gettext_pp_default_dir
587 4 4 if $loaded{$try}
590 0 4 if $seen{$fulldir}++
595 0 4 if $Locale::gettext_pp::__gettext_pp_unavailable_dirs->{$fulldir}
596 2 2 unless -d $fulldir
600 0 2 unless $domain
609 1 1 unless defined $domains
625 0 2 unless -f $filename and -r $filename
630 0 2 unless open HANDLE, "<$filename"
637 0 2 if not defined $raw or length $raw < 28
648 2 0 if ($domain->{'magic'} == 3725722773) { }
0 0 elsif ($domain->{'magic'} != 2500072158) { }
660 0 2 if $major != 0
669 0 2 if $msgids_off + 4 * $num_strings > $filesize
670 0 2 if $msgstrs_off + 4 * $num_strings > $filesize
685 0 22 if $orig_offset + $orig_length > $filesize
686 0 22 if $trans_offset + $trans_length > $filesize
694 2 20 unless defined $msgid and length $msgid
704 2 0 if ($null_entry)
714 2 0 if (exists $domain->{'po_header'}{'content_type'})
716 2 0 if ($content_type =~ s/.*=//l)
733 0 2 unless (defined $domain->{'po_header'}{'charset'} and length $domain->{'po_header'}{'charset'} and $locale =~ /^(?:[a-z][a-z]) (?:(?:_[A-Z][A-Z])? (\.[-_A-Za-z0-9]+)? )? (?:\@[-_A-Za-z0-9]+)?$/lx)
743 2 0 if (defined $domain->{'po_header'}{'charset'})
760 5 0 unless defined $value and length $value and $value =~ /^[a-z][a-z] (?:_[A-Z][A-Z] (?:\.[-_A-Za-z0-9]+)? )? (?:\@[-_A-Za-z0-9]+)?$/lx
768 5 0 unless ($value)
770 4 1 unless defined $value and length $value
771 4 1 unless defined $value and length $value
772 3 2 unless defined $value and length $value
775 2 0 if $value ne 'C' and $value ne 'POSIX'
783 1 4 unless (defined $has_nl_langinfo)
790 5 0 if ($has_nl_langinfo)
794 1 4 if $had_lc_all
801 0 5 if defined $lc_all
805 5 0 if ($saved_locale)
808 1 4 if ($had_lc_all) { }
809 1 0 if $had_lc_all
825 2 1 if ($code =~ m[^($s* nplurals$s*=$s*[0-9]+ $s*;$s* plural$s*=$s*(?:$s|[-\?\|\&=!<>+*/\%:;a-zA-Z0-9_\(\)])+ )]lmsx)
843 2 1 if (length $code)
859 0 2 if $@
863 1 2 unless $plural_func