| line |
true |
false |
branch |
|
504
|
0 |
0 |
unless $$stash{'config_group'}
|
|
512
|
0 |
0 |
if ($$row[2] eq 'rw') { }
|
|
524
|
0 |
0 |
if $defaults
|
|
526
|
0 |
0 |
unless -e $local
|
|
531
|
0 |
0 |
if $confs{'conf'}
|
|
533
|
0 |
0 |
unless delete $$stash{'config_group'}
|
|
534
|
0 |
0 |
if $$stash{'dev'}
|
|
538
|
0 |
0 |
if (substr($group, 0, 1) eq '.') { }
|
|
541
|
0 |
0 |
if $files
|
|
545
|
0 |
0 |
if $file
|
|
553
|
0 |
0 |
if ($double_required)
|
|
560
|
0 |
0 |
if $class->can('finalize_config')
|
|
572
|
0 |
0 |
if @$ns == 1 and $$ns[0] eq lc $class
|
|
604
|
0 |
0 |
unless @$ns
|
|
615
|
0 |
0 |
if (exists $$local_stash{$var_name})
|
|
625
|
0 |
0 |
unless $var_ns =~ m[^/]
|
|
626
|
0 |
0 |
unless exists $$state{'rw'}{$var_ns}
|
|
628
|
0 |
0 |
if exists $$state{'rw'}{$var_ns}{$pkg}
|
|
633
|
0 |
0 |
unless $ns_part
|
|
634
|
0 |
0 |
unless ref($cur_stash = $$cur_stash{$ns_part}) eq 'HASH'
|
|
638
|
0 |
0 |
if (@_)
|
|
639
|
0 |
0 |
if (ref $_[0] eq 'CODE') { }
|
|
|
0 |
0 |
elsif (ref $_[0] eq 'HASH' and ref $$cur_stash{$var_name} eq 'HASH') { }
|
|
650
|
0 |
0 |
unless $var_ns =~ m[^/]
|
|
655
|
0 |
0 |
unless $ns_part
|
|
656
|
0 |
0 |
unless ref($cur_stash = $$cur_stash{$ns_part}) eq 'HASH'
|
|
664
|
0 |
0 |
unless ($$state{'subs'}{$pkg})
|
|
665
|
0 |
0 |
unless open my $fh, '<', $file . ''
|
|
677
|
0 |
0 |
if $@
|
|
679
|
0 |
0 |
unless eval {
do {
$$state{'subs'}{$pkg}();
1
}
}
|
|
684
|
0 |
0 |
if $key eq 'BEGIN' or $key eq 'DESTROY' or $key eq 'AUTOLOAD' or $key =~ /^__ANON__\[/
|
|
687
|
0 |
0 |
if not defined $val and $key =~ /^(root|inline|module|r|u|l|p|rw|rewrite|can)$/
|
|
688
|
0 |
0 |
if index($key, '__') > 0
|
|
690
|
0 |
0 |
if (ref $val eq 'HASH' and ref $oldval eq 'HASH') { }
|
|
712
|
0 |
0 |
unless opendir my $dh, $dir
|
|
713
|
0 |
0 |
unless ($$b[2] eq $class) <=> ($$a[2] eq $class) or lc $$a[2] cmp lc $$b[2]
|
|
722
|
0 |
0 |
-d $path ? :
|
|
724
|
0 |
0 |
if not $is_dir and $entry =~ s/\.([^.]+)$//
|
|
729
|
0 |
0 |
if $$row[1]
|
|
742
|
0 |
0 |
if (ref $v1 eq 'HASH' and ref $v2 eq 'HASH') { }
|