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 |