| line |
true |
false |
branch |
|
17
|
0 |
70 |
unless defined $k and length $k |
|
23
|
0 |
2 |
unless defined $v |
|
29
|
0 |
0 |
unless defined $f and $f =~ /\%s.*\%s/ |
|
35
|
0 |
2 |
unless defined $v and UNIVERSAL::isa($v, 'CODE') |
|
42
|
0 |
14 |
unless defined $f |
|
48
|
0 |
9 |
unless $o =~ /^(?:keep|alpha|none)$/ |
|
54
|
0 |
8 |
unless $e =~ /^[\w\-]+$/ |
|
67
|
0 |
8 |
if @_ & 1 |
|
69
|
8 |
0 |
unless defined $defaults |
|
72
|
8 |
0 |
unless defined $format |
|
74
|
8 |
0 |
unless defined $wrap |
|
76
|
8 |
0 |
unless defined $order |
|
80
|
7 |
1 |
unless defined $encoding |
|
83
|
8 |
0 |
unless defined $eol_re |
|
86
|
0 |
8 |
if %opts |
|
88
|
0 |
8 |
if (defined $defaults) |
|
89
|
0 |
0 |
if (ref $defaults eq 'HASH') { } |
|
|
0 |
0 |
elsif (not $defaults->isa('Config::Properties')) { } |
|
114
|
0 |
8 |
if (defined $file) |
|
115
|
0 |
0 |
unless open my $fh, '<', $file |
|
117
|
0 |
0 |
unless close $fh |
|
129
|
0 |
0 |
if (not defined $old or $old ne $new) |
|
140
|
1 |
0 |
if (exists $$self{'properties'}{$key}) |
|
145
|
0 |
1 |
if $recurse and $$self{'defaults'} |
|
155
|
0 |
2 |
if defined wantarray |
|
164
|
0 |
4 |
if (defined $$self{'defaults'}) |
|
191
|
0 |
0 |
unless defined $format |
|
199
|
0 |
0 |
if (@_) |
|
224
|
0 |
0 |
if (@_) |
|
240
|
1 |
0 |
if @_ |
|
254
|
8 |
0 |
if (defined $fn and $fn > 0) |
|
255
|
7 |
1 |
unless (grep /^(?:encoding|utf8)\b/, &PerlIO::get_layers($file)) |
|
256
|
0 |
7 |
unless binmode $file, ":encoding($$self{'encoding'})" |
|
263
|
0 |
8 |
$ln > 0 ? : |
|
297
|
154 |
1 |
defined $1 ? : |
|
305
|
119 |
13 |
if ($$bin =~ s/$line_re//) { } |
|
311
|
5 |
0 |
unless $bytes or not defined $bytes and $! == Errno::EGAIN() || $! == 11 || $! == 4 |
|
318
|
0 |
5 |
if (length $$bin) |
|
336
|
5 |
95 |
unless defined $line |
|
340
|
8 |
87 |
if $ln < 2 |
|
343
|
36 |
59 |
if $line =~ /^\s*(\#|\!|$)/ |
|
351
|
0 |
24 |
unless defined $line |
|
354
|
10 |
49 |
if @lines |
|
356
|
1 |
58 |
unless my($key, $value) = $line =~ /^
\s*
((?:[^\s:=\\]|\\.)+)
\s*
[:=\s]
\s*
(.*)
$
/x |
|
381
|
11 |
47 |
if (defined $validator) |
|
382
|
2 |
9 |
unless &{$validator;}(@_, $self) |
|
400
|
5 |
1 |
if ($order eq 'keep') |
|
405
|
1 |
0 |
if ($order eq 'alpha') |
|
418
|
3 |
0 |
if ($$self{'wrap'}) |
|
424
|
0 |
3 |
unless ($wrap) |
|
429
|
3 |
0 |
if $wrap |
|
430
|
3 |
0 |
if $wrap |
|
431
|
3 |
0 |
if $wrap |
|
432
|
3 |
0 |
if $wrap |
|
438
|
0 |
21 |
if ($$self{'be_like_java'}) { } |
|
445
|
21 |
0 |
if ($wrap) { } |
|
464
|
3 |
0 |
if (defined $header) |
|
475
|
0 |
0 |
unless open my $fh, '>', \$str |
|
478
|
0 |
0 |
unless close $fh |
|
485
|
0 |
0 |
if (defined $$self{'defaults'}) |
|
491
|
0 |
0 |
if (defined $start) |
|
492
|
0 |
0 |
unless $ekey =~ s/$start// |
|
496
|
0 |
0 |
unless @parts |
|
502
|
0 |
0 |
if (@parts) { } |
|
503
|
0 |
0 |
if (defined $old) { } |
|
504
|
0 |
0 |
if (ref $old) { } |
|
517
|
0 |
0 |
if (ref $old) { } |
|
530
|
0 |
0 |
unless defined $re |
|
531
|
0 |
0 |
unless ref $re |
|
532
|
0 |
0 |
if (defined $start) |
|
543
|
0 |
0 |
unless defined $sep |
|
545
|
0 |
0 |
if ($ref eq 'HASH') { } |
|
|
0 |
0 |
elsif ($ref eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($ref) { } |
|
547
|
0 |
0 |
$key ne '' ? : |
|
577
|
67 |
0 |
if (exists $$self{'properties'}{$key}) { } |
|
|
0 |
0 |
elsif (defined $$self{'defaults'}) { } |
|
584
|
0 |
0 |
if defined $_ |
|
592
|
0 |
0 |
unless defined $prop |