| line |
true |
false |
branch |
|
113
|
0 |
24 |
if (ref $_[1]) |
|
150
|
0 |
24 |
$cloning ? : |
|
154
|
0 |
0 |
if ($k eq '_context') { } |
|
|
0 |
0 |
elsif ($k eq '_debug') { } |
|
|
0 |
0 |
elsif ($k eq '_noinc') { } |
|
|
0 |
0 |
elsif ($k eq '_raw') { } |
|
201
|
0 |
0 |
if ($self->{'_debug'}) |
|
224
|
0 |
27 |
if ($self->{'_debug'}) |
|
260
|
0 |
0 |
if (@_ > 0 or not UNIVERSAL::isa($path, 'ARRAY')) |
|
278
|
0 |
0 |
unless $searchpath |
|
282
|
0 |
0 |
unless $path eq '' |
|
286
|
0 |
0 |
unless $file =~ m[^/] |
|
287
|
0 |
0 |
unless -e $cfg |
|
298
|
0 |
0 |
unless $did |
|
307
|
221 |
819 |
if ($value =~ /^'(.*)'\s*$/) |
|
315
|
0 |
819 |
if ($self->{'_raw'} and $value =~ /^(null|false|true)$/) |
|
319
|
15 |
804 |
if (lc $value eq 'null') |
|
322
|
4 |
800 |
if (lc $value eq 'true') |
|
325
|
23 |
777 |
if (lc $value eq 'false') |
|
329
|
167 |
610 |
if ($value =~ /^"(.*)"\s*$/) |
|
339
|
2 |
165 |
if $noexpand |
|
343
|
502 |
108 |
if $noexpand |
|
351
|
9 |
18 |
$context ? : |
|
361
|
226 |
647 |
if /^\s*#/ |
|
362
|
36 |
611 |
unless /\S/ |
|
370
|
0 |
611 |
if (/^include\s+((?![=:]).+)/ and not $self->{'_noinc'}) |
|
387
|
48 |
563 |
if (/^($keypat)\s*([{])$/) |
|
389
|
0 |
48 |
$2 eq '[' ? : |
|
390
|
13 |
35 |
unless @stack |
|
394
|
9 |
554 |
if (/^($keypat)\s*[:=]\s*([[])$/) |
|
396
|
9 |
0 |
$2 eq '[' ? : |
|
397
|
1 |
8 |
unless @stack |
|
416
|
12 |
542 |
if (/^($keypat)\s*[:=]\s*\[(.*)\]$/) |
|
418
|
9 |
3 |
if @stack |
|
427
|
3 |
9 |
unless $ix |
|
431
|
10 |
0 |
if (/^\s*\[(.*)\]$/ and @stack and $stack[0][1]) |
|
447
|
7 |
258 |
if (@stack and defined $stack[0][1] and /^([{\[])$/) |
|
449
|
0 |
7 |
$1 eq '[' ? : |
|
457
|
64 |
461 |
if (/^([}\]])$/) |
|
458
|
0 |
64 |
@stack && $1 eq defined $stack[0][1] ? : |
|
|
0 |
64 |
unless @stack && $1 eq defined $stack[0][1] ? ']' : '}' |
|
470
|
438 |
23 |
if (/^($keypat)\s*[=:]\s*(.*)/) |
|
475
|
171 |
267 |
if @stack |
|
484
|
23 |
0 |
if (@stack and defined $stack[0][1]) |
|
503
|
9 |
18 |
$context ? : |
|
|
0 |
27 |
if @stack != ($context ? 1 : 0) |
|
540
|
0 |
4 |
if ($context_only = $prop =~ s/^\.// and not $ctx) |
|
543
|
0 |
4 |
if (defined $ctx) |
|
544
|
0 |
0 |
if $ctx |
|
545
|
0 |
0 |
if (exists $self->{'_props'}{$ctx . $prop}) |
|
550
|
0 |
4 |
if ($context_only) |
|
554
|
4 |
0 |
if (defined $self->{'_props'}{$prop} and $self->{'_props'}{$prop} ne '') |
|
575
|
0 |
3 |
unless defined $ret or $nargs == 3 |
|
591
|
0 |
0 |
if $prop |
|
604
|
91 |
671 |
unless $ret |
|
605
|
0 |
671 |
if $self->{'_debug'} |
|
615
|
214 |
457 |
if $ctx |
|
621
|
0 |
14 |
if $self->{'_debug'} |
|
626
|
3 |
11 |
if $key =~ /^(.*?):(.*)/ |
|
631
|
1 |
13 |
if (exists $ENV{$key}) { } |
|
633
|
0 |
1 |
if $checkdef |
|
637
|
3 |
10 |
if ord $key == 46 |
|
639
|
2 |
11 |
if ($checkdef) { } |
|
|
6 |
5 |
elsif (defined $$props{lc $key} and $$props{lc $key} ne '') { } |
|
668
|
1466 |
194 |
if (exists $props->{$p}) { } |
|
670
|
510 |
956 |
unless index(join("\000", '', @{$props->{$p};}, ''), "\000" . $last . "\000") >= 0 |
|
750
|
659 |
13 |
if $cur ne '' |
|
753
|
175 |
497 |
if (my $res = $self->{'_props'}{lc $all}) { } |
|
754
|
62 |
113 |
if (_check_array($res)) { } |
|
771
|
485 |
12 |
if defined $val |
|
779
|
113 |
62 |
unless join($", @i) =~ /^[\d ]+$/ |
|
782
|
0 |
238 |
unless $_ eq "$ref" |
|
808
|
0 |
12 |
if $fh |
|
824
|
335 |
12 |
if $cur |
|
828
|
90 |
257 |
if (my $res = $self->{'_props'}{lc $all}) |
|
829
|
75 |
15 |
if @$res > 1 |
|
832
|
78 |
257 |
if defined $t and $t ne '' |
|
834
|
0 |
335 |
if $dump_expanded |
|
835
|
89 |
246 |
if (not defined $val) { } |
|
|
1 |
245 |
elsif ($val =~ /[\n\t]/) { } |
|
836
|
12 |
77 |
unless defined $t and $t ne '' |