| line |
true |
false |
branch |
|
31
|
0 |
2 |
unless defined $args{'file'} |
|
32
|
0 |
2 |
unless -e $args{'file'} |
|
33
|
0 |
2 |
if (defined $args{'stream_data'}) { } |
|
36
|
0 |
2 |
unless open DATA, "<$args{'file'}" |
|
46
|
2 |
0 |
unless defined $args{'keep_resource_array'} |
|
47
|
2 |
0 |
if (defined $args{'keep_resource_array'} and $args{'keep_resource_array'}) |
|
50
|
2 |
0 |
unless (defined $args{'clean_when_reload'}) |
|
53
|
2 |
0 |
unless (defined $args{'reload_when_save'}) |
|
84
|
0 |
4 |
if $section_chunk |
|
89
|
8 |
37 |
if ($line_sp =~ /^\[(.+)\]/) { } |
|
|
0 |
37 |
elsif ($section_chunk) { } |
|
91
|
0 |
8 |
if $section_chunk |
|
96
|
0 |
0 |
if $one_line eq '' |
|
98
|
0 |
0 |
unless $section_name |
|
103
|
6 |
31 |
if $line_sp eq '' |
|
106
|
2 |
29 |
if ($line_sp =~ /^\#/) |
|
108
|
0 |
2 |
unless $section_name |
|
109
|
2 |
0 |
unless $DATA{$section_name}{$line_sp} |
|
115
|
29 |
0 |
if ($line_sp =~ /\=/) |
|
120
|
10 |
19 |
unless $section_name |
|
121
|
27 |
2 |
unless $DATA{$section_name}{$key} |
|
136
|
6 |
45 |
unless $string |
|
137
|
43 |
2 |
unless ($string =~ /^\#/) |
|
152
|
29 |
0 |
if ($value) |
|
165
|
0 |
0 |
if (defined $$self{$varname}) { } |
|
189
|
0 |
0 |
unless defined $args{'section'} |
|
190
|
0 |
0 |
unless defined $$self{'parsed_conf'}{$args{'section'}} |
|
200
|
0 |
0 |
unless defined $args{'section'} |
|
201
|
0 |
0 |
unless defined $$self{'parsed_conf'}{$args{'section'}} |
|
210
|
0 |
8 |
unless defined $args{'section'} |
|
211
|
0 |
8 |
unless defined $$self{'parsed_conf'}{$args{'section'}} |
|
212
|
0 |
8 |
unless defined $args{'key'} |
|
213
|
0 |
8 |
unless defined $$self{'parsed_conf'}{$args{'section'}}{$args{'key'}} |
|
223
|
0 |
2 |
unless defined $$self{'file'} |
|
224
|
0 |
2 |
unless -e $$self{'file'} |
|
225
|
0 |
2 |
unless open DATA, "<$$self{'file'}" |
|
236
|
2 |
0 |
if (defined $$self{'keep_resource_array'} and $$self{'keep_resource_array'}) |
|
242
|
2 |
0 |
if (defined $$self{'clean_when_reload'} and $$self{'clean_when_reload'}) |
|
267
|
0 |
0 |
unless defined $value |
|
268
|
0 |
0 |
unless exists $$self{$key} |
|
349
|
0 |
1 |
if $#{$$self{'commit_list'};} < 0 |
|
353
|
1 |
0 |
if (defined $$self{'keep_resource_array'} and $$self{'keep_resource_array'}) |
|
358
|
0 |
1 |
unless (defined $used_resource) |
|
359
|
0 |
0 |
unless open DATA, "<$$self{'file'}" |
|
367
|
0 |
6 |
if $$one_case{'action'} eq 'editkey' or $$one_case{'action'} eq 'delkey' |
|
368
|
0 |
6 |
if $$one_case{'action'} eq 'delsection' or $$one_case{'action'} eq 'replacesection' |
|
369
|
2 |
4 |
if $$one_case{'action'} eq 'addsection' |
|
370
|
4 |
2 |
if $$one_case{'action'} eq 'append' |
|
371
|
0 |
6 |
if $$one_case{'action'} eq 'matchreplace' |
|
372
|
0 |
6 |
if ($$one_case{'action'} eq 'cleanfile') |
|
380
|
0 |
1 |
if (defined $opts{'new_file'} and $opts{'new_file'} ne '') { } |
|
381
|
0 |
0 |
unless open SAVE, ">$opts{'new_file'}" |
|
383
|
0 |
1 |
unless open SAVE, ">$$self{'file'}" |
|
391
|
1 |
0 |
if (defined $$self{'reload_when_save'} and $$self{'reload_when_save'}) |
|
411
|
0 |
0 |
if ($auto_save) |
|
416
|
0 |
0 |
if ($line_sp =~ /^\[(.+)\]/) { } |
|
|
0 |
0 |
elsif ($last_section_name eq $$one_case{'section'} and $line_sp =~ /\=/) { } |
|
423
|
0 |
0 |
if ($key eq $$one_case{'key'} and $$one_case{'value_regexp'} and not $$one_case{'value'}) { } |
|
|
0 |
0 |
elsif ($key eq $$one_case{'key'} and not $$one_case{'value'}) { } |
|
|
0 |
0 |
elsif ($key eq $$one_case{'key'} and $$one_case{'value'} eq $value) { } |
|
425
|
0 |
0 |
if ($$one_case{'action'} eq 'delkey' and $1 eq $$one_case{'value_regexp'}) |
|
428
|
0 |
0 |
if ($$one_case{'action'} eq 'delkey') { } |
|
433
|
0 |
0 |
if ($$one_case{'action'} eq 'delkey') { } |
|
441
|
0 |
0 |
if defined $one_line |
|
457
|
0 |
0 |
if $$one_case{'section'} eq '[unsection]' and $$one_case{'action'} eq 'replacesection' |
|
463
|
0 |
0 |
if ($auto_save) |
|
467
|
0 |
0 |
if ($last_section_name eq $$one_case{'section'} and $line_sp =~ /^\[(.+)\]/) { } |
|
|
0 |
0 |
elsif ($last_section_name eq $$one_case{'section'}) { } |
|
|
0 |
0 |
elsif ($line_sp =~ /^\[(.+)\]/) { } |
|
474
|
0 |
0 |
if ($$one_case{'section'} eq $1) |
|
476
|
0 |
0 |
if $$one_case{'action'} eq 'delsection' |
|
500
|
1 |
1 |
if ($line_sp =~ /^\[.+\]/) |
|
502
|
0 |
1 |
if ($section eq $line_sp) |
|
508
|
2 |
0 |
unless ($exists) |
|
523
|
2 |
2 |
if (not exists $$one_case{'section'} or $$one_case{'section'} eq '') { } |
|
|
2 |
0 |
elsif (not defined $$one_case{'comkey'} or $$one_case{'comkey'} eq '') { } |
|
525
|
2 |
0 |
if ($$one_case{'point'} eq 'up') { } |
|
538
|
0 |
4 |
if ($auto_save) |
|
544
|
0 |
4 |
if (defined $section_name and $$one_case{'section'} eq $section_name and $$one_case{'point'} eq 'up') { } |
|
|
0 |
4 |
elsif (defined $section_name and $$one_case{'section'} eq $section_name and $$one_case{'point'} eq 'down') { } |
|
|
2 |
2 |
elsif (defined $section_name and $$one_case{'section'} eq $section_name and $$one_case{'point'} eq 'foot') { } |
|
|
0 |
2 |
elsif ($save_tmpmem == 1 and $section_name and $$one_case{'section'} ne $section_name) { } |
|
556
|
2 |
2 |
if ($save_tmpmem == 1 and $offset == $#{$data;}) |
|
572
|
0 |
0 |
if ($auto_save) |
|
576
|
0 |
0 |
if ($line_sp =~ /^\[(.+)\]/) { } |
|
|
0 |
0 |
elsif ($last_section_name eq $$one_case{'section'} and $line_sp =~ /\=/) { } |
|
581
|
0 |
0 |
if ($key eq $$one_case{'comkey'}[0] and $value eq $$one_case{'comkey'}[1] and $$one_case{'point'} eq 'up') { } |
|
|
0 |
0 |
elsif ($key eq $$one_case{'comkey'}[0] and $value eq $$one_case{'comkey'}[1] and $$one_case{'point'} eq 'down') { } |
|
|
0 |
0 |
elsif ($key eq $$one_case{'comkey'}[0] and $value eq $$one_case{'comkey'}[1] and $$one_case{'point'} eq 'over') { } |
|
602
|
2 |
2 |
if (ref $string eq 'ARRAY') { } |
|
|
2 |
0 |
elsif (ref $string eq 'HASH') { } |
|
623
|
0 |
0 |
if ($one_line =~ /$$one_case{'match'}/) |