| 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 ($@) |