| line |
true |
false |
branch |
|
105
|
0 |
0 |
if ($ENV{'PERL_DL_NONLAZY'} or $ENV{'PERL_USE_UNSAFE_INC'} or $ENV{'HARNESS_ACTIVE'}) |
|
133
|
396 |
103321 |
if (is_assign_spaces($rOpts)) { } |
|
143
|
46783 |
56934 |
unless ($skip) |
|
145
|
2 |
46781 |
if ($tag =~ /^(export\s+)(\S.*)$/i) { } |
|
|
2 |
46779 |
elsif ($tag =~ /^(set\s+)(\S.*)$/i) { } |
|
155
|
13 |
103704 |
$rOpts->{'tag_case'} && defined $tag ? : |
|
203
|
0 |
185 |
unless (open $READ_CONFIG, "<", $file) |
|
209
|
3 |
182 |
if ($opts->{'use_utf8'}) |
|
242
|
7735 |
34263 |
if ($ln eq "") |
|
248
|
694 |
33569 |
unless ($tv) |
|
252
|
46 |
648 |
if ($ln =~ /^$src_str\s+(.+)$/i) |
|
255
|
17 |
29 |
if ($cmt =~ /(^|$lbl_sep)$sect_str($lbl_sep|$)/) |
|
259
|
0 |
46 |
unless $res |
|
264
|
635 |
13 |
if ($ln =~ /^$lb\s*(.+?)\s*$rb$/) |
|
269
|
8 |
627 |
if ($cmt =~ /(^|$lbl_sep)$hide_str($lbl_sep|$)/ or should_we_hide_sensitive_data($section)) |
|
295
|
4 |
33565 |
if ($prefix) { } |
|
|
0 |
33565 |
elsif ($cmt =~ /(^|$lbl_sep)$export_str($lbl_sep|$)/) { } |
|
296
|
0 |
4 |
$opts->{'export'} ? : |
|
298
|
0 |
0 |
$opts->{'export'} ? : |
|
303
|
243 |
20780 |
if ($hide_section{$section} or $cmt =~ /(^|$lbl_sep)$encrypt_str($lbl_sep|$)/ or $cmt =~ /(^|$lbl_sep)$hide_str($lbl_sep|$)/ or should_we_hide_sensitive_data($tag, 1)) |
|
307
|
589 |
12200 |
unless $opts->{'dbug_test_use_case_hide_override'} |
|
310
|
589 |
32980 |
if ($hide) { } |
|
|
6200 |
26780 |
elsif ($cmt =~ /(^|$lbl_sep)$decrypt_str($lbl_sep|$)/) { } |
|
313
|
0 |
589 |
if ($value eq '') { } |
|
314
|
0 |
0 |
if (is_assign_spaces($opts)) { } |
|
321
|
3 |
586 |
if (is_assign_spaces($opts)) { } |
|
330
|
100 |
6100 |
unless $opts->{'dbug_test_use_case_hide_override'} |
|
336
|
20790 |
12779 |
if $lq |
|
338
|
116 |
33453 |
if ($tag =~ /^(shft3+)$/i) |
|
341
|
116 |
0 |
if ($skip_warns_due_to_make_test) { } |
|
351
|
6224 |
27229 |
if ($cmt =~ /(^|$lbl_sep)$decrypt_str($lbl_sep|$)/) |
|
354
|
14 |
6210 |
if ($opts->{'disable_decryption'}) { } |
|
363
|
208 |
33245 |
if ($opts->{'disable_variables'}) { } |
|
|
33231 |
14 |
elsif (not $still_encrypted) { } |
|
364
|
84 |
124 |
$value =~ /$lv.+$rv/ ? : |
|
366
|
20669 |
12562 |
$lq ? : |
|
367
|
29 |
33202 |
if ($hide == -1) |
|
374
|
4 |
33449 |
if $export_flag |
|
425
|
17 |
29 |
if $defaultSection |
|
434
|
0 |
46 |
unless (-f $file and -r _) |
|
439
|
2 |
44 |
if ($cfg->_recursion_check($file)) |
|
441
|
0 |
2 |
if ($rOpts->{'trap_recursion'}) { } |
|
453
|
44 |
0 |
if (exists $rOpts->{'source_cb'} and ref $rOpts->{'source_cb'} eq "CODE") |
|
457
|
0 |
0 |
if ($rOpts->{'inherit_pass_phase'} and $rOpts->{'pass_phrase'}) |
|
459
|
0 |
0 |
unless defined $r_opts |
|
460
|
0 |
0 |
unless $r_opts->{'pass_phrase'} |
|
465
|
44 |
0 |
defined $res ? : |
|
491
|
221 |
599 |
if ($new_name eq "" or $new_name eq $global_sections{'DEFAULT'}) |
|
492
|
35 |
186 |
if ($global_sections{'DEFAULT'} ne $global_sections{'OVERRIDE'}) |
|
506
|
489 |
331 |
if ($old) |
|
513
|
331 |
0 |
if ($scfg) |
|
535
|
0 |
0 |
unless $rOpts->{'enable_backquotes'} |
|
541
|
0 |
0 |
unless ($value =~ /^$lbq(.*)$rbq$/) |
|
548
|
0 |
0 |
if $hide |
|
550
|
0 |
0 |
if ($cmd =~ /[`]/) { } |
|
|
0 |
0 |
elsif ($cmd =~ /^\s*$/) { } |
|
558
|
0 |
0 |
unless defined $value |
|
601
|
56814 |
0 |
ref $_[0] eq 'HASH' ? : |
|
607
|
20353 |
36461 |
unless ($opts->{'dbug_test_use_case_parse_override'}) |
|
625
|
187 |
46995 |
do {
$tag =~ /$comment/ unless $tag eq ''
} ? : |
|
|
47182 |
9632 |
defined $tag && defined $value ? : |
|
628
|
47182 |
0 |
unless $tag eq "" |
|
635
|
0 |
46995 |
if ($opts->{'disable_quotes'}) { } |
|
|
43353 |
3642 |
elsif ($default_quotes) { } |
|
639
|
26373 |
16980 |
if ($value =~ /^(['"])/) |
|
646
|
692 |
2950 |
if ($value =~ /^($q)/) |
|
662
|
27065 |
29749 |
if ($tv_pair_flag and $l_quote ne "") |
|
666
|
19083 |
7982 |
if ($value =~ /^($l_quote)(.*)($r_quote)(\s*$comment.*$)/) { } |
|
|
7918 |
64 |
elsif ($value =~ /^($l_quote)(.*)($r_quote)\s*$/) { } |
|
673
|
27001 |
64 |
if ($q1) |
|
676
|
26997 |
4 |
unless ($val2 =~ /$l_quote/ or $val2 =~ /$r_quote/) |
|
679
|
19079 |
7918 |
if $cmt2 ne "" |
|
695
|
13142 |
16675 |
unless ($line =~ /$comment/) |
|
701
|
65 |
16610 |
if ($tv_pair_flag and not $value =~ /$comment/) |
|
721
|
16610 |
0 |
unless $has_no_cmt =~ /$comment/ or $has_no_cmt =~ /$lvar/ or $has_no_cmt =~ /$rvar/ or $line =~ /$has_no_cmt/ |
|
726
|
0 |
16610 |
if ($has_no_cmt eq "\@\@\@\@\@\@\@\@\@\@") |
|
740
|
215 |
1452 |
if $cmt_found |
|
748
|
215 |
16395 |
if ($cmt_found and $parts[0] =~ /(\s*$comment\s*)(.*$)/) { } |
|
|
1011 |
15384 |
elsif ($count_var) { } |
|
757
|
1005 |
6 |
if ($var_line =~ /(\s*$comment\s*)(.*)$/) { } |
|
759
|
5 |
1000 |
if ($cmts =~ /$has_no_cmt/) { } |
|
771
|
1006 |
5 |
unless ($unbalanced_leading_var_anchor_with_comments) |
|
782
|
5 |
15384 |
if ($unbalanced_leading_var_anchor_with_comments) |
|
785
|
17 |
0 |
if ($l =~ /\s*$comment\s*(.*)$/) |
|
787
|
5 |
12 |
unless $cmts =~ /$has_no_cmt/ |
|
792
|
5 |
0 |
if ($cmts ne "") |
|
811
|
12278 |
3106 |
if ($tv_pair_flag and $value =~ /(\s*$comment\s*)(.*)$/) |
|
893
|
575 |
33522 |
if $mask_flag |
|
901
|
575 |
33522 |
if ($mask_flag) |
|
911
|
29335 |
4762 |
unless (defined $tag) |
|
937
|
184 |
7571 |
if (not defined $val and defined $mod_tag) |
|
945
|
13 |
171 |
unless (defined $val) |
|
953
|
35 |
7720 |
if ($mask == -1) |
|
958
|
0 |
35 |
if $val =~ /$lv/ or $val =~ /$rv/ |
|
966
|
126 |
7629 |
if ($mask and not $mask_flag) |
|
972
|
175 |
7580 |
if ($do_mod_lookup) |
|
975
|
8 |
167 |
if ($m == -2) { } |
|
|
21 |
265 |
elsif ($m and not $mask_flag) { } |
|
986
|
7270 |
485 |
if (defined $val) { } |
|
1002
|
30 |
4732 |
if ($mask_flag == -1) |
|
1006
|
34 |
1 |
if $output =~ s/$_/$val/ |
|
1011
|
3936 |
826 |
if ($trim_flag) |
|
1060
|
162 |
13 |
defined $value ? : |
|
1072
|
9 |
166 |
if ($mod_opt eq ':+' and $alt_val ne '' or $mod_opt =~ /^:[-=?]$/ and $alt_val eq '' or $mod_opt eq '+' and defined $value or $mod_opt =~ /^[-=?]$/ and not defined $value) { } |
|
|
11 |
155 |
elsif ($mod_opt eq '##' or $mod_opt eq '#' or $mod_opt eq '%%' or $mod_opt eq '%') { } |
|
|
1 |
154 |
elsif ($mod_opt eq 'LENGTH') { } |
|
|
2 |
152 |
elsif ($mod_opt eq 'LIST') { } |
|
|
108 |
44 |
elsif ($mod_opt eq '!') { } |
|
|
4 |
40 |
elsif ($mod_opt eq '//') { } |
|
|
8 |
32 |
elsif ($mod_opt eq '/') { } |
|
|
8 |
24 |
elsif ($mod_opt eq ':') { } |
|
|
2 |
22 |
elsif ($mod_opt eq '^^') { } |
|
|
1 |
21 |
elsif ($mod_opt eq ',,') { } |
|
|
1 |
20 |
elsif ($mod_opt eq '~~') { } |
|
|
1 |
19 |
elsif ($mod_opt eq '^') { } |
|
|
1 |
18 |
elsif ($mod_opt eq ',') { } |
|
|
1 |
17 |
elsif ($mod_opt eq '~') { } |
|
1078
|
2 |
7 |
if ($mod_opt eq ':=' or $mod_opt eq '=') { } |
|
|
0 |
7 |
elsif ($mod_opt eq ':?' or $mod_opt eq '?') { } |
|
1088
|
0 |
0 |
if $file ne "" |
|
1111
|
4 |
7 |
if ($greedy) { } |
|
|
4 |
3 |
elsif ($leading) { } |
|
|
3 |
0 |
elsif ($regExpVal =~ /[*]/) { } |
|
1124
|
8 |
3 |
if ($leading) { } |
|
1132
|
3 |
8 |
if $reverse_msg ne "" |
|
1150
|
8 |
100 |
if ($mask == -1) { } |
|
|
48 |
52 |
elsif ($mask) { } |
|
1172
|
7 |
1 |
if (defined $length and $length ne '') { } |
|
1188
|
12 |
11 |
defined $1 ? : |
|
1198
|
1 |
0 |
if $alt_val eq $output |
|
1304
|
7 |
59907 |
if ($opts->{'disable_variables'} and not $disable_flag) |
|
1314
|
9422 |
50485 |
if ($value =~ /(^.*?)($lvar)(.*?)($rvar)(.*$)/) |
|
1320
|
227 |
9195 |
if $left =~ /$cmt_str/ |
|
1351
|
210 |
9212 |
if ($lvar eq $rvar) { } |
|
|
1136 |
8076 |
elsif ($opts->{'disable_variable_modifiers'}) { } |
|
|
59 |
8017 |
elsif ($tag =~ /(^$not+)(:?[-=+])(.+)$/) { } |
|
|
7 |
8010 |
elsif ($tag =~ /(^$not+)(:?[?])(.*)$/) { } |
|
|
42 |
7968 |
elsif ($tag =~ /^($not+)(##)(.+)$/ or $tag =~ /^($not+)(%%)(.+)$/ or $tag =~ /^($not+)(#)(.+)$/ or $tag =~ /^($not+)(%)(.+)$/) { } |
|
|
16 |
7952 |
elsif ($tag =~ /^#(.+)$/) { } |
|
|
2 |
7950 |
elsif ($tag =~ /^!(.+)[\@*]$/) { } |
|
|
140 |
7810 |
elsif ($tag =~ /^!(.+)$/) { } |
|
|
14 |
7796 |
elsif ($tag =~ m[^($not+)(//?)([^/]+)/([^/]*)$]) { } |
|
|
6 |
7790 |
elsif ($tag =~ m[^($not+)(//?)([^/]+)$]) { } |
|
|
1 |
7789 |
elsif ($tag =~ /^($not+):([0-9]+)$/ or $tag =~ /^($not+):\s+(-[0-9]+)$/ or $tag =~ /^($not+):[(](-[0-9]+)[)]$/) { } |
|
|
7 |
7782 |
elsif ($tag =~ /^($not+):([0-9]+):(-?[0-9]+)$/ or $tag =~ /^($not+):\s+(-[0-9]+):(-?[0-9]+)$/ or $tag =~ /^($not+):[(](-[0-9]+)[)]:(-?[0-9]+)$/) { } |
|
|
13 |
7769 |
elsif ($tag =~ /^($not+)([\^]{1,2})$/ or $tag =~ /^($not+)([,]{1,2})$/ or $tag =~ /^($not+)([~]{1,2})$/) { } |
|
1366
|
1 |
6 |
if $sub_val eq "" |
|
1398
|
4 |
10 |
if ($sub_val =~ /^([#%])(.+)$/) { } |
|
1400
|
2 |
2 |
$1 eq '#' ? : |
|
1411
|
4 |
2 |
if ($sub_val =~ /^([#%])(.+)$/) { } |
|
1413
|
2 |
2 |
$1 eq '#' ? : |
|
1445
|
307 |
9115 |
if defined $sub_tag |
|
1451
|
12 |
59895 |
if ($opts->{'tag_case'}) |
|
1452
|
2 |
10 |
if defined $tag |
|
1453
|
0 |
12 |
if defined $sub_tag |
|
1497
|
9 |
15 |
if $sensitive |
|
1501
|
24 |
0 |
if (using_default_quotes($rOpts)) { } |
|
|
0 |
0 |
elsif (not $rOpts->{'disable_quotes'}) { } |
|
1502
|
3 |
21 |
if ($value =~ /'/ and $value =~ /"/) { } |
|
|
18 |
3 |
elsif (not $value =~ /'/) { } |
|
|
3 |
0 |
elsif (not $value =~ /"/) { } |
|
1513
|
0 |
0 |
unless ($value =~ /$ql/ or $value =~ /$qr/) |
|
1521
|
12 |
12 |
if ($value =~ /$cmt/) |
|
1524
|
0 |
12 |
if ($rOpts->{'disable_variables'}) |
|
1525
|
0 |
0 |
if ($rOpts->{'disable_quotes'}) |
|
1528
|
0 |
0 |
unless ($quote_l) |
|
1534
|
3 |
9 |
unless ($quote_l) |
|
1541
|
21 |
3 |
if ($quote_l) |
|
1623
|
0 |
7 |
unless (open ENCRYPT, "<", $file) |
|
1629
|
0 |
7 |
unless (open NEW, ">", $scratch) |
|
1636
|
1 |
6 |
if ($rOpts->{'use_utf8'}) |
|
1654
|
6652 |
662 |
if ($tv) { } |
|
|
109 |
553 |
elsif ($ln =~ /^$lb\s*(.+?)\s*$rb$/) { } |
|
1657
|
6131 |
521 |
if ($cmt =~ /(^|$lbl_sep)$encrypt_str($lbl_sep|$)/) { } |
|
|
0 |
521 |
elsif ($cmt =~ /(^|$lbl_sep)$hide_str($lbl_sep|$)/) { } |
|
1665
|
2 |
519 |
if ($hide_section or should_we_hide_sensitive_data($tag, 1)) |
|
1673
|
0 |
109 |
should_we_hide_sensitive_data($section, 1) ? : |
|
1676
|
1181 |
6133 |
unless ($hide) |
|
1678
|
0 |
1181 |
unless (print NEW $line, "\n") |
|
1689
|
0 |
6133 |
is_assign_spaces($rOpts) ? : |
|
1690
|
6133 |
0 |
if ($cmt) { } |
|
1697
|
2 |
6131 |
unless ($encrypt) |
|
1698
|
0 |
2 |
unless (print NEW $line, "\n") |
|
1719
|
27 |
6104 |
if ($lq) |
|
1728
|
0 |
6131 |
if (is_assign_spaces($rOpts)) { } |
|
1735
|
0 |
6131 |
unless (print NEW $line, "\n") |
|
1743
|
0 |
7 |
$count == 0 ? : |
|
1802
|
0 |
9 |
unless (open DECRYPT, "<", $file) |
|
1808
|
0 |
9 |
unless (open NEW, ">", $scratch) |
|
1815
|
1 |
8 |
if ($rOpts->{'use_utf8'}) |
|
1833
|
6682 |
728 |
if ($tv) { } |
|
|
111 |
617 |
elsif ($ln =~ /^$lb\s*(.+?)\s*$rb$/) { } |
|
1836
|
6143 |
539 |
if ($cmt =~ /(^|$lbl_sep)$decrypt_str($lbl_sep|$)/) { } |
|
|
0 |
539 |
elsif ($cmt =~ /(^|$lbl_sep)$encrypt_str($lbl_sep|$)/ or $cmt =~ /(^|$lbl_sep)$hide_str($lbl_sep|$)/) { } |
|
1844
|
4 |
535 |
if ($hide_section or should_we_hide_sensitive_data($tag, 1)) |
|
1852
|
0 |
111 |
should_we_hide_sensitive_data($section, 1) ? : |
|
1855
|
1263 |
6147 |
unless ($hide) |
|
1857
|
0 |
1263 |
unless (print NEW $line, "\n") |
|
1868
|
0 |
6147 |
is_assign_spaces($rOpts) ? : |
|
1869
|
6143 |
4 |
if ($decrypt) { } |
|
|
4 |
0 |
elsif ($cmt) { } |
|
1878
|
4 |
6143 |
unless ($decrypt) |
|
1879
|
0 |
4 |
unless (print NEW $line, "\n") |
|
1900
|
6143 |
0 |
if ($lq) |
|
1908
|
6143 |
0 |
if ($nlq) |
|
1909
|
13 |
6130 |
if ($new_value =~ /$rlq2/ or $new_value =~ /$rrq2/) |
|
1914
|
0 |
6143 |
if (is_assign_spaces($rOpts)) { } |
|
1921
|
0 |
6143 |
unless (print NEW $line, "\n") |
|
1929
|
0 |
9 |
$count == 0 ? : |
|
1957
|
11 |
6120 |
$rOpts->{'alias'} ? : |
|
1962
|
6131 |
0 |
if (exists $rOpts->{'encrypt_cb'} and ref $rOpts->{'encrypt_cb'} eq "CODE") |
|
1971
|
2828 |
3303 |
$len1 > $len2 ? : |
|
1973
|
6131 |
0 |
$len > $len3 ? : |
|
1976
|
4690 |
1441 |
$len < 12 ? : |
|
2011
|
67 |
12286 |
$rOpts->{'alias'} ? : |
|
2022
|
12353 |
0 |
if (exists $rOpts->{'encrypt_cb'} and ref $rOpts->{'encrypt_cb'} eq "CODE") |
|
2056
|
6131 |
0 |
if ($rq) |
|
2092
|
12367 |
0 |
if ($rq) |
|
2111
|
18448 |
50 |
if (using_default_quotes($rOpts)) { } |
|
|
50 |
0 |
elsif (not $rOpts->{'disable_quotes'}) { } |
|
2138
|
0 |
18484 |
if (length $tag == length $alias) |
|
2148
|
0 |
18484 |
if ($pass) |
|
2153
|
0 |
18484 |
if ($usr_flg) |
|
2158
|
3036 |
15448 |
if ($val =~ /[^\x00-\xff]/) { } |
|
2199
|
42 |
36926 |
if ($target =~ /[^\x00-\xff]/) { } |