| 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 |
10 |
if exists $ENV{'DATAPRINTERRC'} |
|
34
|
1 |
49 |
if -f $file |
|
36
|
0 |
49 |
unless @path |
|
38
|
8 |
41 |
if not defined $updir or $updir eq $dir |
|
49
|
0 |
10 |
unless defined $cwd |
|
56
|
1 |
9 |
if ($0 eq '-e' or $0 eq '-') { } |
|
58
|
1 |
0 |
if defined $cwd |
|
62
|
0 |
9 |
unless -f $script |
|
66
|
9 |
0 |
unless "File::Spec"->file_name_is_absolute($script) |
|
69
|
9 |
0 |
if defined $maybe_path |
|
77
|
3 |
10 |
if ($testing) { } |
|
|
0 |
10 |
elsif ($^O eq 'MSWin32' and "$]" < 5.016) { } |
|
|
0 |
10 |
elsif ($^O eq 'MacOS') { } |
|
83
|
3 |
0 |
unless -d $home |
|
91
|
0 |
0 |
unless $error |
|
96
|
10 |
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
|
211 |
614 |
if (ref $new eq 'HASH') { } |
|
|
35 |
579 |
elsif (ref $new eq 'ARRAY') { } |
|
225
|
156 |
55 |
ref $old eq 'HASH' ? : |
|
228
|
449 |
169 |
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/ |