line |
true |
false |
branch |
8
|
3 |
1 |
unless ($filename) |
11
|
0 |
4 |
unless $filename and -e $filename and not -d $filename |
12
|
4 |
0 |
if (open my $fh, '<', $filename) { } |
27
|
1 |
2 |
if exists $ENV{'DATAPRINTERRC'} |
34
|
1 |
1 |
if -f $file |
36
|
0 |
1 |
unless @path |
38
|
0 |
1 |
if not defined $updir or $updir eq $dir |
49
|
0 |
2 |
unless defined $cwd |
56
|
1 |
1 |
if ($0 eq '-e' or $0 eq '-') { } |
58
|
1 |
0 |
if defined $cwd |
62
|
0 |
1 |
unless -f $script |
66
|
1 |
0 |
unless 'File::Spec'->file_name_is_absolute($script) |
69
|
1 |
0 |
if defined $maybe_path |
77
|
3 |
2 |
if ($testing) { } |
|
0 |
2 |
elsif ($^O eq 'MSWin32' and "$]" < 5.016) { } |
|
0 |
2 |
elsif ($^O eq 'MacOS') { } |
83
|
3 |
0 |
unless -d $home |
91
|
0 |
0 |
unless $error |
96
|
2 |
0 |
if $home |
99
|
0 |
0 |
if (exists $ENV{'LOGDIR'} and $ENV{'LOGDIR'}) |
102
|
0 |
0 |
if (not $home and exists $ENV{'HOME'} and $ENV{'HOME'}) |
106
|
0 |
0 |
unless defined $home |
107
|
0 |
0 |
if (defined $home and not -d $home) |
116
|
1 |
0 |
unless defined $mode_raw |
118
|
0 |
0 |
length $mode == 4 && substr($mode, 2, 2) eq '00' ? : |
131
|
13 |
170 |
if (defined $filter) { } |
|
54 |
116 |
elsif (/^\s*(?:\#|\;|$)/) { } |
|
18 |
98 |
elsif (/^\s*\[\s*(.+?)\s*\]\s*$/) { } |
|
90 |
8 |
elsif (/^\s*([^=]+?)\s*=\s*(.*?)\s*$/) { } |
|
7 |
1 |
elsif (/^begin\s+filter\s+([^\s]+)\s*$/) { } |
132
|
6 |
7 |
if (/^end filter\s*$/) { } |
|
1 |
6 |
elsif (/^begin\s+filter/) { } |
133
|
6 |
0 |
unless (defined $can_use_filters) |
136
|
5 |
1 |
if ($can_use_filters) { } |
180
|
18 |
72 |
if (@subpath == 1 and $subpath[0] eq 'filters') |
185
|
54 |
90 |
if (@subpath > 0) { } |
200
|
1 |
0 |
if ($counter == 1 and /\A\s*\{/s) |
216
|
0 |
24 |
if exists $config->{$ns}{'profile'} |
223
|
206 |
598 |
if (ref $new eq 'HASH') { } |
|
35 |
563 |
elsif (ref $new eq 'ARRAY') { } |
225
|
151 |
55 |
ref $old eq 'HASH' ? : |
228
|
437 |
165 |
if (exists $new->{$k}) { } |
256
|
2 |
5 |
if (not $profile =~ /\A[a-zA-Z0-9:]+\z/) { } |
263
|
1 |
4 |
if defined $load_error |
265
|
0 |
4 |
unless ref $expanded eq 'HASH' |
268
|
1 |
4 |
if (defined $error) |
281
|
1 |
3 |
unless $filename |
283
|
1 |
2 |
unless -e $filename and not -d $filename |
285
|
0 |
2 |
unless open my $fh, '<', $filename |
293
|
0 |
2 |
if ($@) { } |
|
1 |
1 |
elsif (not ref $config or ref $config ne 'HASH') { } |
306
|
5 |
8 |
if (ref $value eq 'HASH') |
307
|
1 |
4 |
if $key_str eq 'color' |
310
|
7 |
5 |
$key_str ? : |
314
|
1 |
7 |
if ($key_str and $key_str eq 'filters.-external' and ref $value eq 'ARRAY') { } |
|
2 |
5 |
elsif (ref $value) { } |
330
|
1 |
4 |
if $value =~ /\s/ |