| line |
true |
false |
branch |
|
93
|
1 |
102 |
if ref $args{'tocopy_section'} |
|
94
|
7 |
95 |
if (exists $args{'separator'}) { } |
|
97
|
1 |
6 |
if ref $sep |
|
98
|
1 |
5 |
unless $sep =~ /^[\Q$allowed_sep_chars\E]+$/ |
|
108
|
10 |
90 |
if exists $args{'tocopy_vars'} |
|
109
|
5 |
90 |
if exists $args{'not_tocopy'} |
|
111
|
1 |
91 |
if (exists $args{'varname_chk_re'}) |
|
112
|
0 |
1 |
if ref $args{'varname_chk_re'} ne "Regexp" |
|
276
|
2 |
303 |
if ref $args{$scalar_arg} |
|
278
|
60 |
91 |
if exists $self->{'Config::INI::RefVars __ SRC_NAME'} |
|
279
|
8 |
143 |
if exists $args{'src_name'} |
|
283
|
1 |
150 |
unless defined $src |
|
285
|
8 |
142 |
if (defined $tocopy_section) { } |
|
294
|
16 |
134 |
if ($tocopy_vars) |
|
298
|
10 |
135 |
if ($not_tocopy) |
|
306
|
24 |
118 |
$self->{'Config::INI::RefVars __ TOCOPY_VARS'} ? : |
|
311
|
88 |
54 |
if (my $ref_src = ref $src) { } |
|
312
|
80 |
8 |
unless exists $self->{'Config::INI::RefVars __ SRC_NAME'} |
|
313
|
87 |
1 |
if ($ref_src eq 'ARRAY') { } |
|
316
|
1 |
524 |
if ref $entry |
|
317
|
0 |
524 |
unless (defined $entry) |
|
328
|
10 |
44 |
if (index($src, "\n") == -1) { } |
|
331
|
10 |
0 |
unless exists $self->{'Config::INI::RefVars __ SRC_NAME'} |
|
333
|
0 |
10 |
length($vol // '') ? : |
|
338
|
44 |
0 |
unless exists $self->{'Config::INI::RefVars __ SRC_NAME'} |
|
346
|
29 |
98 |
exists $self->{'Config::INI::RefVars __ SECTIONS_H'}{$tocopy_section} ? : |
|
354
|
117 |
5 |
if ($cleanup) { } |
|
357
|
8 |
645 |
if index($var, "=") != -1 |
|
360
|
72 |
18 |
unless $tocopy_sec_declared or %$tocopy_sec_vars |
|
363
|
2 |
3 |
if ($self->{'Config::INI::RefVars __ GLOBAL_MODE'}) { } |
|
376
|
22 |
100 |
if exists $backup->{'tocopy_section'} |
|
377
|
26 |
96 |
if exists $backup->{'tocopy_vars'} |
|
378
|
12 |
110 |
if exists $backup->{'not_tocopy'} |
|
387
|
22 |
1 |
defined $_[0]{'Config::INI::RefVars __ SECTIONS'} ? : |
|
388
|
21 |
1 |
defined $_[0]{'Config::INI::RefVars __ SECTIONS_H'} ? : |
|
502
|
2 |
398 |
unless exists $allowed_args->{$key} |