| line |
true |
false |
branch |
|
56
|
4 |
13 |
if ($type) { } |
|
59
|
7 |
3 |
if $$self{'set'}{$set}{'type'}{$type} |
|
69
|
0 |
0 |
if ($set) { } |
|
70
|
0 |
0 |
if (exists $$self{'set'}{$set}) { } |
|
88
|
0 |
0 |
unless (defined $uid) |
|
95
|
0 |
0 |
if $$self{'set'}{$set}{'owner'} == $uid and !$type || exists $$self{'set'}{$set}{'type'}{$type} |
|
104
|
0 |
19 |
unless ($set) |
|
108
|
0 |
19 |
unless (exists $$self{'set'}{$set}) |
|
117
|
0 |
8 |
unless ($set) |
|
121
|
0 |
8 |
unless (exists $$self{'set'}{$set}) |
|
125
|
0 |
8 |
unless (defined $ele) |
|
129
|
4 |
4 |
if exists $$self{'set'}{$set}{'ele'}{$ele} |
|
135
|
7 |
4 |
if ($set) { } |
|
136
|
7 |
0 |
if (exists $$self{'set'}{$set}) { } |
|
156
|
7 |
0 |
if ($set) { } |
|
157
|
7 |
0 |
if (exists $$self{'set'}{$set}) { } |
|
175
|
0 |
8 |
unless ($set) |
|
179
|
0 |
8 |
unless (exists $$self{'set'}{$set}) |
|
184
|
8 |
0 |
if ($opt) { } |
|
185
|
8 |
0 |
if (exists $$self{'set'}{$set}{'opts'}{$opt}) { } |
|
197
|
0 |
0 |
unless ($set) |
|
201
|
0 |
0 |
unless (exists $$self{'set'}{$set}) |
|
208
|
0 |
0 |
unless (-w $dir) |
|
213
|
0 |
0 |
unless (-f "$dir/$set") |
|
218
|
0 |
0 |
if ($nobackup) { } |
|
229
|
0 |
1 |
if ($$self{'read'} ne 'files') |
|
237
|
0 |
1 |
unless ($out->open("$file.new", 65, 420)) |
|
244
|
0 |
15 |
unless exists $$self{'set'}{$set}{$key} |
|
246
|
9 |
6 |
if (ref $$self{'set'}{$set}{$key} eq 'HASH') |
|
257
|
0 |
6 |
if (ref $$self{'set'}{$set}{$key} eq 'ARRAY') |
|
281
|
0 |
8 |
if ($$self{'read'} ne 'files') |
|
286
|
0 |
8 |
unless ($set) |
|
290
|
0 |
8 |
unless (exists $$self{'set'}{$set}) |
|
294
|
0 |
8 |
unless (@ele) |
|
301
|
18 |
4 |
if (not exists $$self{'set'}{$set}{'ele'}{$ele} or $$self{'set'}{$set}{'ele'}{$ele} == 2 and $force) |
|
308
|
0 |
8 |
unless @add |
|
310
|
0 |
8 |
if $commit |
|
316
|
0 |
2 |
if ($$self{'read'} ne 'files') |
|
321
|
0 |
2 |
unless ($set) |
|
325
|
0 |
2 |
unless (exists $$self{'set'}{$set}) |
|
329
|
0 |
2 |
unless (@ele) |
|
336
|
5 |
1 |
if (exists $$self{'set'}{$set}{'ele'}{$ele} or not exists $$self{'set'}{$set}{'omit0'} && exists $$self{'set'}{$set}{'omit0'}{$ele} and $force) |
|
344
|
0 |
2 |
unless @rem |
|
346
|
0 |
2 |
if $commit |
|
352
|
0 |
0 |
unless (@set) |
|
356
|
0 |
0 |
if ($$self{'read'} ne 'file' and $$self{'read'} ne 'files') |
|
363
|
0 |
0 |
unless (exists $$self{'set'}{$set}) |
|
373
|
0 |
0 |
if (-w $dir) { } |
|
389
|
0 |
0 |
if (-f $template) |
|
390
|
0 |
0 |
if (not $in->open($template)) { } |
|
398
|
0 |
0 |
unless ($out->open($file, 65, 420)) |
|
428
|
0 |
0 |
if $$self{'set'}{$set}{'ele'}{$ele} == 2 |
|
436
|
0 |
0 |
if ($wri) { } |
|
443
|
0 |
0 |
unless ($in->open("$dir/$set")) |
|
449
|
0 |
0 |
unless ($out->open("$scr/.set_files.$set", 65, 420)) |
|
461
|
0 |
0 |
if ($wri) { } |
|
468
|
0 |
0 |
unless ($in->open("$scr/.set_files.$set.new")) |
|
474
|
0 |
0 |
unless ($out->open("$dir/$set", 65, 420)) |
|
498
|
26 |
0 |
if (exists $opts{'path'}) { } |
|
500
|
14 |
12 |
if (ref $dir eq 'ARRAY') { } |
|
|
0 |
12 |
elsif (ref $dir) { } |
|
512
|
39 |
0 |
if (-d $dir) { } |
|
519
|
0 |
26 |
unless (@dir) |
|
526
|
2 |
24 |
if (exists $opts{'cache'}) { } |
|
535
|
0 |
26 |
unless (-d $cache) |
|
542
|
0 |
26 |
if (exists $opts{'scratch'}) { } |
|
545
|
26 |
0 |
-d '/tmp' ? : |
|
549
|
0 |
26 |
unless (-d $scratch and -w $scratch) |
|
557
|
17 |
9 |
if (exists $opts{'invalid_quiet'}) { } |
|
566
|
5 |
21 |
if (exists $opts{'read'}) { } |
|
568
|
0 |
4 |
if ($read ne 'cache' and $read ne 'files' and $read ne 'file') |
|
574
|
0 |
21 |
if ($cache_opt) { } |
|
585
|
3 |
23 |
if (exists $opts{'set'}) { } |
|
591
|
0 |
26 |
if ($read eq 'file' and not $set) |
|
594
|
0 |
26 |
if ($set and $read ne 'file') |
|
602
|
0 |
26 |
if (exists $opts{'lock'}) { } |
|
603
|
0 |
0 |
$opts{'lock'} ? : |
|
608
|
0 |
26 |
if ($lock) |
|
614
|
1 |
25 |
if ($read eq 'cache') |
|
616
|
1 |
0 |
if (-f $file) { } |
|
618
|
0 |
1 |
unless $in->open($file) |
|
628
|
9 |
6 |
if ($tmp eq '.sf.hash') { } |
|
|
0 |
6 |
elsif ($tmp eq '.sf.array') { } |
|
|
6 |
0 |
elsif ($tmp eq '.sf.scalar') { } |
|
658
|
25 |
1 |
if ($read eq 'files' or $read eq 'file') |
|
664
|
5 |
20 |
if (exists $opts{'valid_file'}) { } |
|
666
|
1 |
4 |
if (ref $tmp eq 'CODE') { } |
|
|
0 |
4 |
elsif (ref $tmp) { } |
|
|
2 |
2 |
elsif ($tmp =~ s/^!//) { } |
|
689
|
0 |
37 |
unless (opendir DIR, $dir) |
|
696
|
0 |
81 |
if $f eq '.' or $f eq '..' or $f =~ /^.set_files/ or not -f "$dir/$f" |
|
700
|
6 |
71 |
if ($valid_file_nre and $f =~ /$valid_file_nre/ or $valid_file_re and not $f =~ /$valid_file_re/ or $valid_file and not &$valid_file($dir, $f)) |
|
703
|
0 |
10 |
unless $invalid_quiet |
|
707
|
0 |
71 |
if (exists $dir{$f}) { } |
|
718
|
13 |
12 |
if (exists $opts{'types'}) { } |
|
720
|
13 |
0 |
if (ref $type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $type) { } |
|
734
|
13 |
12 |
if (exists $opts{'default_types'}) { } |
|
736
|
0 |
13 |
if (ref $type eq 'ARRAY') { } |
|
|
0 |
13 |
elsif (ref $type) { } |
|
|
0 |
13 |
elsif ($type eq 'all') { } |
|
|
13 |
0 |
elsif ($type eq 'none') { } |
|
754
|
0 |
12 |
if (not exists $tmp{$type}) { } |
|
765
|
1 |
24 |
if (exists $opts{'comment'}) { } |
|
775
|
1 |
24 |
if (exists $opts{'tagchars'}) { } |
|
785
|
3 |
22 |
if (exists $opts{'valid_ele'}) { } |
|
787
|
1 |
2 |
if (ref $tmp eq 'CODE') { } |
|
|
0 |
2 |
elsif (ref $tmp) { } |
|
|
1 |
1 |
elsif ($tmp =~ s/^!//) { } |
|
810
|
3 |
22 |
if ($read eq 'file') |
|
814
|
1 |
6 |
if exists $self{'set'}{$set} |
|
816
|
0 |
6 |
unless (exists $dir{$set}) |
|
824
|
3 |
3 |
if exists $self{'set'}{$set}{'incl'} |
|
826
|
1 |
5 |
if exists $self{'set'}{$set}{'excl'} |
|
833
|
22 |
3 |
if ($read eq 'files') |
|
845
|
17 |
51 |
if (exists $self{'set'}{$set}{'incl'}) |
|
847
|
0 |
17 |
unless (exists $self{'set'}{$inc}) |
|
851
|
0 |
0 |
unless keys %{$self{'set'}{$set}{'incl'};} |
|
856
|
14 |
54 |
if (exists $self{'set'}{$set}{'excl'}) |
|
858
|
0 |
14 |
unless (exists $self{'set'}{$exc}) |
|
862
|
0 |
0 |
unless keys %{$self{'set'}{$set}{'excl'};} |
|
871
|
25 |
0 |
unless $flag1 or $flag2 |
|
875
|
0 |
68 |
if (exists $self{'set'}{$set}{'excl'} or exists $self{'set'}{$set}{'incl'}) { } |
|
|
10 |
58 |
elsif (exists $self{'set'}{$set}{'omit'}) { } |
|
886
|
0 |
25 |
unless (keys %{$self{'set'};}) |
|
902
|
0 |
68 |
unless ($in->open("$dir/$set")) |
|
926
|
47 |
430 |
unless $line |
|
928
|
185 |
245 |
if ($line =~ s/^$tagchars//) { } |
|
930
|
17 |
168 |
if ($line =~ /^include\s+(.+)/i) { } |
|
|
14 |
154 |
elsif ($line =~ /^exclude\s+(.+)/i) { } |
|
|
50 |
104 |
elsif ($line =~ /^type\s+(.+)/i) { } |
|
|
0 |
104 |
elsif ($line =~ /^notype\s+(.+)/i) { } |
|
|
30 |
74 |
elsif ($line =~ /^omit\s+(.+)/i) { } |
|
|
47 |
27 |
elsif ($line =~ /^option\s+(.+?)\s*=\s*(.*)/i) { } |
|
|
27 |
0 |
elsif ($line =~ /^option\s+(.+)/i) { } |
|
950
|
50 |
0 |
if (exists $types{$tmp}) { } |
|
962
|
0 |
0 |
if (exists $types{$tmp}) { } |
|
976
|
0 |
47 |
unless $val |
|
987
|
16 |
221 |
if ($valid_ele_nre and $line =~ /$valid_ele_nre/ or $valid_ele_re and not $line =~ /$valid_ele_re/ or $valid_ele and not &$valid_ele($set, $line)) |
|
990
|
0 |
24 |
unless $invalid_quiet |
|
1006
|
17 |
95 |
if exists $$self{$set}{'incl'} |
|
1007
|
14 |
98 |
if exists $$self{$set}{'excl'} |
|
1011
|
40 |
15 |
unless keys %inc |
|
1016
|
0 |
17 |
if exists $inc{$inc} or exists $exc{$inc} |
|
1021
|
29 |
24 |
unless exists $$self{$set}{'ele'}{$ele} |
|
1027
|
17 |
0 |
unless keys %{$$self{$set}{'incl'};} |
|
1030
|
15 |
0 |
if $progress |
|
1043
|
0 |
112 |
if exists $$self{$set}{'incl'} |
|
1044
|
14 |
98 |
if exists $$self{$set}{'excl'} |
|
1048
|
40 |
14 |
unless keys %exc |
|
1052
|
0 |
14 |
if exists $inc{$set} |
|
1054
|
0 |
14 |
if exists $inc{$exc} or exists $exc{$exc} |
|
1061
|
14 |
38 |
if exists $$self{$set}{'ele'}{$ele} and $$self{$set}{'ele'}{$ele} == 2 |
|
1068
|
14 |
0 |
unless keys %{$$self{$set}{'excl'};} |
|
1071
|
14 |
0 |
if $progress |