| 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 |
|
71
|
8 |
0 |
unless defined $format |
|
73
|
8 |
0 |
unless defined $wrap |
|
75
|
8 |
0 |
unless defined $order |
|
81
|
8 |
0 |
unless defined $eol_re |
|
84
|
0 |
8 |
if %opts |
|
86
|
0 |
8 |
if (defined $defaults) |
|
87
|
0 |
0 |
if (ref $defaults eq 'HASH') { } |
|
|
0 |
0 |
elsif (not $defaults->isa('Config::Properties')) { } |
|
111
|
0 |
8 |
if (defined $file) |
|
112
|
0 |
0 |
unless open my $fh, '<', $file |
|
114
|
0 |
0 |
unless close $fh |
|
126
|
0 |
0 |
if (not defined $old or $old ne $new) |
|
137
|
1 |
0 |
if (exists $$self{'properties'}{$key}) |
|
142
|
0 |
1 |
if $recurse and $$self{'defaults'} |
|
152
|
0 |
2 |
if defined wantarray |
|
161
|
0 |
4 |
if (defined $$self{'defaults'}) |
|
188
|
0 |
0 |
unless defined $format |
|
196
|
0 |
0 |
if (@_) |
|
221
|
0 |
0 |
if (@_) |
|
237
|
1 |
0 |
if @_ |
|
251
|
8 |
0 |
if (defined $fn and $fn > 0) |
|
252
|
7 |
1 |
unless (grep /^(?:encoding|utf8)\b/, &PerlIO::get_layers($file)) |
|
253
|
0 |
7 |
unless binmode $file, ":encoding($$self{'encoding'})" |
|
260
|
0 |
8 |
$ln > 0 ? : |
|
294
|
154 |
1 |
defined $1 ? : |
|
302
|
119 |
13 |
if ($$bin =~ s/$line_re//) { } |
|
308
|
5 |
0 |
unless $bytes or not defined $bytes and $! == Errno::EGAIN() || $! == 11 || $! == 4 |
|
315
|
0 |
5 |
if (length $$bin) |
|
333
|
5 |
95 |
unless defined $line |
|
337
|
8 |
87 |
if $ln < 2 |
|
340
|
36 |
59 |
if $line =~ /^\s*(\#|\!|$)/ |
|
348
|
0 |
24 |
unless defined $line |
|
351
|
10 |
49 |
if @lines |
|
353
|
1 |
58 |
unless my($key, $value) = $line =~ /^
\s*
((?:[^\s:=\\]|\\.)+)
\s*
[:=\s]
\s*
(.*)
$
/x |
|
378
|
11 |
47 |
if (defined $validator) |
|
379
|
2 |
9 |
unless &{$validator;}(@_, $self) |
|
397
|
5 |
1 |
if ($order eq 'keep') |
|
402
|
1 |
0 |
if ($order eq 'alpha') |
|
415
|
3 |
0 |
if ($$self{'wrap'}) |
|
421
|
0 |
3 |
unless ($wrap) |
|
426
|
3 |
0 |
if $wrap |
|
427
|
3 |
0 |
if $wrap |
|
428
|
3 |
0 |
if $wrap |
|
429
|
3 |
0 |
if $wrap |
|
437
|
21 |
0 |
if ($wrap) { } |
|
456
|
3 |
0 |
if (defined $header) |
|
467
|
0 |
0 |
unless open my $fh, '>', \$str |
|
470
|
0 |
0 |
unless close $fh |
|
477
|
0 |
0 |
if (defined $$self{'defaults'}) |
|
483
|
0 |
0 |
if (defined $start) |
|
484
|
0 |
0 |
unless $ekey =~ s/$start// |
|
488
|
0 |
0 |
unless @parts |
|
494
|
0 |
0 |
if (@parts) { } |
|
495
|
0 |
0 |
if (defined $old) { } |
|
496
|
0 |
0 |
if (ref $old) { } |
|
509
|
0 |
0 |
if (ref $old) { } |
|
522
|
0 |
0 |
unless defined $re |
|
523
|
0 |
0 |
unless ref $re |
|
524
|
0 |
0 |
if (defined $start) |
|
535
|
0 |
0 |
unless defined $sep |
|
537
|
0 |
0 |
if ($ref eq 'HASH') { } |
|
|
0 |
0 |
elsif ($ref eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($ref) { } |
|
539
|
0 |
0 |
$key ne '' ? : |
|
569
|
67 |
0 |
if (exists $$self{'properties'}{$key}) { } |
|
|
0 |
0 |
elsif (defined $$self{'defaults'}) { } |
|
576
|
0 |
0 |
if defined $_ |
|
584
|
0 |
0 |
unless defined $prop |