| line |
true |
false |
branch |
|
53
|
0 |
1 |
@_ ? :
|
|
54
|
0 |
1 |
unless defined $ref
|
|
68
|
1 |
10 |
if ($s =~ /^([^\x00-\x1f\x80-\xff :=]+):[[:blank:]]*(.*?)$/)
|
|
88
|
1 |
8 |
unless length $k
|
|
92
|
0 |
8 |
if ($orig =~ /^(.*?)\x04(.*)$/s)
|
|
99
|
1 |
7 |
if @msgid_parts
|
|
107
|
0 |
8 |
if length $ctx
|
|
108
|
1 |
7 |
if (length $msgid_plural) { }
|
|
133
|
0 |
2 |
if ref $hash ne "HASH"
|
|
134
|
0 |
2 |
unless length $enc
|
|
144
|
0 |
10 |
if length $k
|
|
148
|
1 |
1 |
if ($@)
|
|
164
|
0 |
9 |
if ref $hash ne "HASH"
|
|
165
|
0 |
9 |
unless length $enc
|
|
173
|
0 |
18 |
if ($self->_is_array($hash->{$k})) { }
|
|
|
18 |
0 |
elsif (not ref $hash->{$k}) { }
|
|
177
|
0 |
0 |
if &Encode::is_utf8($hash->{$k}[$i])
|
|
182
|
9 |
9 |
&Encode::is_utf8($v) ? :
|
|
187
|
0 |
9 |
if ($@)
|
|
204
|
0 |
0 |
if (not $self->{'use_cache'} || $opts->{'no_cache'} and -e $file and ref $self->{'_cache'} eq "ARRAY" and $self->{'_last_modified'} and [stat $file]->[9] <= $self->{'_last_modified'})
|
|
211
|
0 |
0 |
wantarray ? :
|
|
213
|
0 |
1 |
unless -e $file
|
|
214
|
0 |
1 |
unless -r $file
|
|
225
|
0 |
1 |
if ($byte_order eq "\336\cR\cD\225") { }
|
|
|
1 |
0 |
elsif ($byte_order eq "\225\cD\cR\336") { }
|
|
241
|
0 |
1 |
if $rev_num > 0
|
|
273
|
1 |
0 |
if ($self->auto_decode or $opts->{'auto_decode'})
|
|
275
|
1 |
0 |
unless (my $enc = $self->encoding)
|
|
278
|
1 |
0 |
if (defined $hash->{''} and $hash->{''} =~ m[Content-Type:[[:blank:]\h]*text/plain;[[:blank:]\h]*charset[[:blank:]\h]*=[[:blank:]\h]*(?<quote>["'])?(?<encoding>[\w\-]+)\g{quote}?]is) { }
|
|
282
|
0 |
1 |
unless $self->encoding($enc)
|
|
289
|
0 |
1 |
unless $self->decode($hash, $enc)
|
|
295
|
1 |
0 |
wantarray ? :
|
|
316
|
0 |
1 |
unless (defined $po)
|
|
321
|
0 |
1 |
unless ($self->_is_object($po) and $po->isa("Text::PO"))
|
|
337
|
1 |
0 |
if ($meta_keys and not $meta_keys->is_empty)
|
|
344
|
0 |
1 |
unless defined $v and length $v
|
|
349
|
1 |
0 |
if (length $header)
|
|
362
|
1 |
0 |
if ($elems and ref $elems)
|
|
366
|
0 |
9 |
unless $e
|
|
368
|
1 |
8 |
if $e->can("is_meta") and $e->is_meta
|
|
370
|
0 |
8 |
if $e->can("is_include") and $e->is_include
|
|
373
|
0 |
8 |
unless defined $msgid
|
|
375
|
8 |
0 |
$e->can('context') ? :
|
|
381
|
1 |
7 |
if (defined $msgid_plural and length $msgid_plural)
|
|
387
|
0 |
8 |
if (defined $ctx and length $ctx)
|
|
395
|
1 |
7 |
if ($e->plural) { }
|
|
402
|
1 |
0 |
if (ref $multi eq "ARRAY")
|
|
407
|
2 |
0 |
if (ref $variant eq 'ARRAY') { }
|
|
414
|
0 |
0 |
defined $variant ? :
|
|
425
|
0 |
7 |
if (ref $m eq 'ARRAY') { }
|
|
432
|
7 |
0 |
defined $m ? :
|
|
457
|
0 |
1 |
unless (defined $file and length "$file")
|
|
469
|
0 |
1 |
unless $fh->print("\225\4\22\336", "\0\0\0\0", pack("N", $cnt), "\0\0\0\34", pack("N", 28 + $cnt * 8), "\0\0\0\0", "\0\0\0\0")
|
|
485
|
0 |
9 |
unless $fh->print(pack("N", $len), pack("N", $cursor))
|
|
494
|
0 |
9 |
unless $fh->print(pack("N", $len), pack("N", $cursor))
|
|
502
|
0 |
9 |
unless $fh->print($k, "\0")
|
|
509
|
0 |
9 |
unless $fh->print($v, "\0")
|