| line |
true |
false |
branch |
|
100
|
0 |
26 |
$0 eq '-e' ? : |
|
118
|
0 |
26 |
if ($@) |
|
126
|
0 |
0 |
if ($ENV{$secret_tag}) { } |
|
140
|
26 |
0 |
if ($p =~ /^$a(.+)$b$/) { } |
|
151
|
0 |
26 |
if ($0 eq '-e') { } |
|
157
|
26 |
0 |
if ($begin_special_vars{'program'} =~ /^(.+)[.]([^.]*)$/) |
|
159
|
26 |
0 |
if ($ext eq "" or $ext eq "pl" or $ext eq "t") |
|
204
|
231 |
26 |
if ($file) |
|
208
|
147 |
84 |
unless ("File::Spec"->file_name_is_absolute($file)) |
|
209
|
46 |
101 |
if ($dir) { } |
|
222
|
7 |
1624 |
if ($parts[$_] eq "..") |
|
447
|
0 |
333 |
if (ref $parent ne __PACKAGE__) |
|
455
|
333 |
0 |
if ($section) |
|
460
|
0 |
333 |
unless ($section) |
|
465
|
0 |
333 |
if (exists $parent->{'SECTIONS'}{$section}) |
|
543
|
107 |
65 |
if ($filename) { } |
|
551
|
91 |
81 |
if (not defined $read_opts) { } |
|
555
|
0 |
81 |
if ref $read_opts ne "HASH" |
|
560
|
5 |
167 |
unless ($filename) |
|
565
|
0 |
167 |
unless (-f $filename) |
|
572
|
0 |
167 |
unless (-f $filename and -r _) |
|
581
|
41 |
126 |
if ($c eq $by) { } |
|
|
44 |
82 |
elsif ($c eq $by2) { } |
|
586
|
42 |
2 |
unless $new_opts->{'alias'} |
|
587
|
44 |
0 |
unless $new_opts->{'pass_phrase'} |
|
588
|
44 |
0 |
unless $new_opts->{'encrypt_by_user'} |
|
596
|
0 |
167 |
if (-l $filename and not $read_opts->{'alias'}) |
|
610
|
0 |
167 |
unless (read_config($filename, $self)) |
|
653
|
2 |
16 |
if ref $read_opts ne "HASH" |
|
656
|
0 |
18 |
unless ($string) |
|
666
|
12 |
6 |
unless $read_opts->{'alias'} |
|
669
|
0 |
18 |
$string =~ /[^\x00-\xff]/ ? : |
|
674
|
4 |
14 |
if ($c eq $by) { } |
|
692
|
0 |
18 |
unless (read_config($filename, $self)) |
|
717
|
1 |
43 |
if ($date_opts) { } |
|
773
|
41 |
0 |
defined $res ? : |
|
805
|
4 |
0 |
defined $res ? : |
|
848
|
0 |
51 |
ref $_[0] eq 'HASH' ? : |
|
855
|
11 |
38 |
unless $opts{$k} |
|
857
|
27 |
11 |
if ($k =~ /^force$/i) { } |
|
|
11 |
0 |
elsif ($k =~ /^test_only$/i) { } |
|
866
|
1 |
50 |
if ($self->{'CONTROL'}{'SENSITIVE_CNT'} != sensitive_cnt()) |
|
871
|
23 |
28 |
unless ($updated) |
|
874
|
0 |
0 |
if (not defined $ENV{$k}) { } |
|
|
0 |
0 |
elsif ($ENV{$k} ne $self->{'CONTROL'}{'ENV'}{$k}) { } |
|
880
|
0 |
0 |
if ($updated) |
|
890
|
40 |
11 |
if ($self->{'CONTROL'}{'DATE_USED'}) |
|
894
|
0 |
40 |
if ($res >= $self->{'CONTROL'}{'DATE_USED'}) { } |
|
903
|
23 |
28 |
unless ($updated) |
|
907
|
3 |
32 |
$f =~ /^SCALAR[(]0x[0-9a-f]+[)]$/ ? : |
|
909
|
0 |
35 |
if ($modify_time > $self->{'CONTROL'}{'REFRESH_MODIFY_TIME'}{$f}) |
|
918
|
28 |
23 |
if ($updated and $skip == 0) |
|
924
|
22 |
6 |
if ($self->{'CONTROL'}{'DATE_USED'}) |
|
931
|
1 |
27 |
if (ref $f eq 'SCALAR') { } |
|
936
|
3 |
23 |
unless defined $reload |
|
940
|
2 |
18 |
if (ref $m eq 'SCALAR') { } |
|
966
|
2 |
44 |
exists $self->{'CONTROL'}{'RECURSION'}{$file} ? : |
|
988
|
3180 |
64021 |
if $opts |
|
991
|
7 |
67194 |
$pcfg->{'CONTROL'}{'read_opts'}{'tag_case'} && $tag ? : |
|
995
|
32 |
67169 |
$disable_req ? : |
|
1004
|
67201 |
0 |
wantarray ? : |
|
1019
|
58088 |
9057 |
if (defined $data) { } |
|
1039
|
0 |
32 |
if ($hyd_flg and $cvt_hyd_flg) |
|
1051
|
8 |
24 |
unless (defined $data) |
|
1053
|
4 |
4 |
if (defined $yr) { } |
|
|
1 |
3 |
elsif ($hyd_flg and $tag =~ /^[-]?\d+$/) { } |
|
|
1 |
2 |
elsif ($cvt_hyd_flg and $tag =~ /^[-]?\d+$/) { } |
|
1071
|
12 |
12 |
if (defined $data) { } |
|
1133
|
182 |
49171 |
if defined $opt_ref |
|
1136
|
781 |
48572 |
if $sensitive |
|
1155
|
2945 |
284 |
defined $opt_ref ? : |
|
1180
|
167 |
353 |
unless (defined $value) |
|
1181
|
0 |
167 |
if (defined $ghash and exists $ghash->{$key}) { } |
|
1186
|
167 |
0 |
if (exists $pcfg->{'CONTROL'}{'get_opts'}{$key}) |
|
1222
|
37 |
37 |
$rt_flag ? : |
|
1225
|
0 |
74 |
if $sensitive |
|
1255
|
0 |
37 |
if $sensitive |
|
1291
|
0 |
32 |
if $sensitive |
|
1338
|
2544 |
24 |
if defined $language |
|
1341
|
0 |
2568 |
if $sensitive |
|
1373
|
0 |
8 |
if defined $language |
|
1376
|
0 |
8 |
if ($sensitive) |
|
1380
|
4 |
4 |
unless defined $value |
|
1415
|
0 |
8 |
if defined $language |
|
1418
|
0 |
8 |
if ($sensitive) |
|
1422
|
3 |
5 |
unless defined $value |
|
1453
|
0 |
8 |
if defined $language |
|
1456
|
0 |
8 |
if ($sensitive) |
|
1460
|
4 |
4 |
unless defined $value |
|
1504
|
0 |
8 |
if defined $language |
|
1507
|
0 |
8 |
if ($sensitive) |
|
1511
|
3 |
5 |
unless defined $value |
|
1514
|
0 |
5 |
unless (defined $value) |
|
1550
|
0 |
15 |
if (defined $access) |
|
1551
|
0 |
0 |
if $access =~ /[rR]/ |
|
1552
|
0 |
0 |
if $access =~ /[wW]/ |
|
1553
|
0 |
0 |
if $access =~ /[xX]/ |
|
1557
|
0 |
15 |
if $sensitive |
|
1591
|
4 |
12 |
if (defined $access) |
|
1592
|
4 |
0 |
if $access =~ /[rR]/ |
|
1593
|
1 |
3 |
if $access =~ /[wW]/ |
|
1597
|
0 |
16 |
if $sensitive |
|
1666
|
0 |
176 |
if $sensitive |
|
1702
|
17 |
0 |
if ($key_vals) |
|
1704
|
5 |
12 |
$merge_ref && ref $merge_ref eq 'HASH' ? : |
|
1709
|
11 |
95 |
if ($m_flg and not exists $merge_ref->{$_}) |
|
1846
|
0 |
2 |
unless defined $split_ptrn |
|
1847
|
0 |
2 |
unless (defined $split_ptrn) |
|
1942
|
5 |
33477 |
if $pcfg->{'CONTROL'}{'read_opts'}{'tag_case'} |
|
1944
|
0 |
33482 |
if ($tag =~ /^shft3+$/i) |
|
1948
|
854 |
32628 |
$force_sensitive || $self->{'SENSITIVE_SECTION'} ? : |
|
1950
|
1559 |
31923 |
if (exists $self->{'DATA'}{$tag}) { } |
|
1951
|
56 |
1503 |
if $self->{'DATA'}{$tag}{'MASK_IN_FISH'} |
|
1955
|
31135 |
788 |
unless ($hide) |
|
1956
|
1 |
31134 |
if should_we_hide_sensitive_data($tag, 1) |
|
1961
|
33482 |
0 |
defined $value ? : |
|
1970
|
14 |
33468 |
$still_encrypted ? : |
|
1973
|
113 |
33369 |
$has_variables ? : |
|
2014
|
2 |
25 |
if $sensitive |
|
2017
|
0 |
27 |
unless ($worked) |
|
2043
|
0 |
24 |
unless (defined $old_tag and defined $new_tag) |
|
2048
|
0 |
24 |
if ($new_tag =~ /^shft3+$/i) |
|
2057
|
0 |
24 |
if ($pcfg->{'CONTROL'}{'read_opts'}{'tag_case'}) |
|
2058
|
0 |
0 |
if $old_tag |
|
2059
|
0 |
0 |
if $new_tag |
|
2062
|
0 |
24 |
if ($old_tag eq $new_tag) |
|
2068
|
24 |
0 |
if (exists $self->{'DATA'}{$old_tag}) |
|
2101
|
0 |
0 |
unless defined $new_tag |
|
2103
|
0 |
0 |
unless (defined $tag and defined $new_section) |
|
2108
|
0 |
0 |
if ($new_tag =~ /^shft3+$/i) |
|
2117
|
0 |
0 |
if $pcfg->{'CONTROL'}{'read_opts'}{'tag_case'} and $tag |
|
2121
|
0 |
0 |
if ($self ne $cfg and exists $self->{'DATA'}{$tag}) |
|
2147
|
0 |
0 |
unless (defined $tag) |
|
2155
|
0 |
0 |
if $pcfg->{'CONTROL'}{'read_opts'}{'tag_case'} and $tag |
|
2158
|
0 |
0 |
if (exists $self->{'DATA'}{$tag}) |
|
2197
|
165 |
37164 |
do {
$section =~ /^\s*$/
} ? : |
|
|
37329 |
35155 |
defined $section ? : |
|
2207
|
71805 |
679 |
if (exists $self->{'SECTIONS'}{$section}) |
|
2211
|
0 |
679 |
if ($required) |
|
2256
|
0 |
333 |
if ($self->get_section($name)) |
|
2302
|
610 |
412 |
unless defined $inherit |
|
2305
|
48833 |
42502 |
$pattern ? : |
|
2313
|
4 |
1018 |
if ($inherit and $pcfg != $self) |
|
2317
|
11 |
21 |
if exists $self->{'DATA'}{$tg} |
|
2319
|
0 |
21 |
$pattern ? : |
|
2354
|
0 |
60 |
if defined $secret_tag and $secret_tag eq $_ |
|
2355
|
0 |
60 |
if defined $fish_tag and $fish_tag eq $_ |
|
2357
|
2 |
58 |
if $_ =~ /^$pattern/ |
|
2365
|
0 |
20 |
if $_ =~ /^$pattern/ |
|
2371
|
2 |
30 |
if $_ =~ /^$pattern/ |
|
2408
|
0 |
0 |
unless defined $inherit |
|
2411
|
0 |
0 |
if ($pattern) { } |
|
2415
|
0 |
0 |
if ($value =~ /$pattern/i) |
|
2422
|
0 |
0 |
if ($inherit and $pcfg != $self) |
|
2426
|
0 |
0 |
if exists $self->{'DATA'}{$tg} |
|
2428
|
0 |
0 |
if ($pattern) { } |
|
2432
|
0 |
0 |
if ($value =~ /$pattern/i) |
|
2468
|
12 |
908 |
$pattern ? : |
|
2529
|
34337 |
0 |
if $ctrl and $ctrl->{'read_opts'} |
|
2530
|
34337 |
0 |
if $ctrl and $ctrl->{'get_opts'} |
|
2531
|
34337 |
0 |
if $ctrl and $ctrl->{'date_opts'} |
|
2555
|
4 |
0 |
$hide ? : |
|
2561
|
0 |
4 |
if (exists $pcfg->{'CONTROL'}{'ENV'}{$tag}) |
|
2601
|
151 |
37 |
unless defined $inherit |
|
2640
|
217 |
0 |
unless defined $inherit |
|
2681
|
415 |
0 |
unless defined $inherit |
|
2717
|
2 |
1 |
if ($encrypt_flag) |
|
2729
|
0 |
6 |
if should_we_hide_sensitive_data($name, 1) |
|
2732
|
9 |
15 |
if $cfg->chk_if_sensitive($tag, 0) |
|
2740
|
3 |
0 |
if $cnt > 0 |
|
2774
|
0 |
17 |
if $sensitive and should_we_hide_sensitive_data($sect, 1) |
|
2782
|
5 |
23 |
if $sensitive and $hide |
|
2788
|
10 |
7 |
if $cnt |
|
2853
|
3 |
2 |
if ($file) { } |
|
|
2 |
0 |
elsif ($pcfg->{'CONTROL'}{'filename'}) { } |
|
2861
|
0 |
5 |
unless ($msg or -f $file) |
|
2865
|
0 |
5 |
if (-l $file and not $newFile) |
|
2870
|
3 |
2 |
if ($newFile) { } |
|
2872
|
0 |
3 |
if ($scratch eq $file) |
|
2879
|
3 |
2 |
if ($rOpts) { } |
|
2885
|
0 |
5 |
if ($msg) |
|
2892
|
0 |
5 |
if ($status == 0 or $status == -1) { } |
|
|
2 |
3 |
elsif (not $newFile) { } |
|
2949
|
6 |
2 |
if ($file) { } |
|
|
2 |
0 |
elsif ($pcfg->{'CONTROL'}{'filename'}) { } |
|
2957
|
0 |
8 |
unless ($msg or -f $file) |
|
2961
|
0 |
8 |
if (-l $file and not $newFile) |
|
2966
|
6 |
2 |
if ($newFile) { } |
|
2968
|
0 |
6 |
if ($scratch eq $file) |
|
2975
|
6 |
2 |
if ($rOpts) { } |
|
2981
|
0 |
8 |
if ($msg) |
|
2988
|
0 |
8 |
if ($status == 0 or $status == -1) { } |
|
|
2 |
6 |
elsif (not $newFile) { } |
|
3032
|
0 |
2 |
unless ($string) |
|
3037
|
0 |
2 |
unless ($alias) |
|
3055
|
0 |
2 |
if $status == 0 |
|
3092
|
0 |
1 |
unless ($string) |
|
3097
|
0 |
1 |
unless ($alias) |
|
3115
|
0 |
1 |
if $status == 0 |
|
3223
|
2 |
8045 |
if $opts->{'tag_case'} |
|
3228
|
291 |
7756 |
if ($var =~ /^shft(3+)$/i) { } |
|
3239
|
4568 |
3188 |
if (not defined $val and $self != $pcfg) |
|
3244
|
1655 |
6101 |
if (not defined $val and $var =~ /[.]/) |
|
3249
|
1 |
7755 |
if (not defined $val and defined $ENV{$var}) |
|
3261
|
2769 |
4987 |
unless (defined $val) |
|
3262
|
1663 |
1106 |
if (exists $begin_special_vars{$var}) { } |
|
|
0 |
1106 |
elsif (exists $begin_special_vars{lc $var}) { } |
|
|
0 |
1106 |
elsif (exists $begin_special_vars{uc $var}) { } |
|
|
8 |
1098 |
elsif ($var eq 'section') { } |
|
3275
|
1098 |
6658 |
unless (defined $val) |
|
3277
|
420 |
678 |
if (defined $pcfg->{'CONTROL'}{'DATES'}{$lc_var}) |
|
3287
|
330 |
90 |
if ($lc_var =~ /^((yesterday)|(today)|(tomorrow)|(dow)|(doy)||(dom))$/) { } |
|
|
27 |
63 |
elsif ($lc_var =~ /^((last)|(this)|(next))_month$/) { } |
|
|
27 |
36 |
elsif ($lc_var =~ /^((last)|(this)|(next))_period$/) { } |
|
|
27 |
9 |
elsif ($lc_var =~ /^((last)|(this)|(next))_year$/) { } |
|
3302
|
411 |
9 |
if ($rule != 0) |
|
3303
|
42 |
369 |
if ($pcfg->{'CONTROL'}{'DATE_USED'} == 0) { } |
|
|
0 |
369 |
elsif ($pcfg->{'CONTROL'}{'DATE_USED'} > $rule) { } |
|
3316
|
391 |
7656 |
if $mask_flag |
|
3319
|
43 |
8004 |
if $encrypt_flag |
|
3360
|
0 |
1685 |
unless ($var_name =~ /\./) |
|
3376
|
15 |
1678 |
unless defined $sect |
|
3382
|
1678 |
0 |
if (defined $val) |
|
3389
|
24 |
1661 |
if $fish_mask |
|
3425
|
0 |
0 |
if ($is_obj) { } |
|
|
0 |
0 |
elsif (defined $self and $self eq __PACKAGE__) { } |
|
3436
|
0 |
0 |
if (defined $date_opts and ref $date_opts eq "") |
|
3446
|
0 |
0 |
if ($is_obj) |
|
3461
|
0 |
0 |
if ($is_obj) { } |
|
3485
|
0 |
0 |
$is_obj ? : |
|
3491
|
0 |
0 |
if ($is_obj) { } |
|
3497
|
0 |
0 |
$opts->{'use_gmt'} ? : |