Branch Coverage

blib/lib/PFT/Conf.pm
Criterion Covered Total %
branch 28 46 60.8


line true false branch
304 0 7 if @_ % 2
306 0 75 unless defined(my $val = $_[$i + 1])
309 0 75 unless @keys
315 68 21 exists $dst->{$k} ? :
316 1 88 if ref $dst ne 'HASH'
319 1 73 if exists $dst->{$k} and ref $dst->{$k} eq 'HASH'
334 3 4 if (my $filter = shift()) { }
336 33 18 unless my $v = $vs->[$select]
354 0 0 if (my $optarg_name = $info->[$IDX_HELP_OPTARG_NAME])
359 0 0 unless (defined $default)
396 0 16 unless $c->{$k}
398 0 16 unless ref $c eq 'HASH'
402 1 15 unless exists $$c{$path[-1]}
410 0 2 unless my $enc_fname = isroot($root)
412 0 2 unless open my $f, '<:encoding(locale)', $enc_fname
429 0 1 unless defined $root
462 6 18 -e $f ? :
495 0 9 unless -d &encode('locale_fs', $cur)
504 4 16 if (isroot($cur)) { }
515 0 0 unless ref $hash eq 'HASH'
547 0 3 unless -e $enc_root or make_path($enc_root)
549 0 3 unless open my $out, '>:encoding(locale)', &encode('locale_fs', scalar catfile($root, $CONF_NAME))
558 0 3 if ($@)