| line |
true |
false |
branch |
|
257
|
0 |
185 |
if ref $builtins ne "HASH" |
|
260
|
0 |
4 |
if ref $builtins->{$name} ne "CODE" |
|
267
|
1 |
184 |
if ref $args{'tocopy_section'} |
|
269
|
7 |
177 |
if (exists $args{'separator'}) { } |
|
272
|
1 |
6 |
if ref $sep |
|
273
|
1 |
5 |
unless $sep =~ /^[\Q$allowed_sep_chars\E]+$/ |
|
283
|
10 |
172 |
if exists $args{'tocopy_vars'} |
|
284
|
5 |
172 |
if exists $args{'not_tocopy'} |
|
288
|
1 |
173 |
if (exists $args{'varname_chk_re'}) |
|
290
|
0 |
1 |
if ref $args{'varname_chk_re'} ne "Regexp" |
|
538
|
2 |
467 |
if ref $args{$scalar_arg} |
|
541
|
60 |
173 |
if exists $self->{'Config::INI::RefVars __ SRC_NAME'} |
|
542
|
8 |
225 |
if exists $args{'src_name'} |
|
547
|
1 |
232 |
unless defined $src |
|
551
|
8 |
224 |
if (defined $tocopy_section) { } |
|
562
|
16 |
216 |
if ($tocopy_vars) |
|
567
|
10 |
217 |
if ($not_tocopy) |
|
576
|
24 |
200 |
$self->{'Config::INI::RefVars __ TOCOPY_VARS'} ? : |
|
584
|
88 |
136 |
if (my $ref_src = ref $src) { } |
|
585
|
80 |
8 |
unless exists $self->{'Config::INI::RefVars __ SRC_NAME'} |
|
587
|
87 |
1 |
if ($ref_src eq 'ARRAY') { } |
|
590
|
1 |
524 |
if ref $entry |
|
591
|
0 |
524 |
unless (defined $entry) |
|
602
|
12 |
124 |
if (index($src, "\n") == -1) { } |
|
604
|
0 |
12 |
unless my $abs_path = abs_path($path) |
|
606
|
12 |
0 |
unless exists $self->{'Config::INI::RefVars __ SRC_NAME'} |
|
609
|
0 |
12 |
length($vol // '') ? : |
|
615
|
124 |
0 |
unless exists $self->{'Config::INI::RefVars __ SRC_NAME'} |
|
624
|
12 |
210 |
if (not ref $args{'src'} and index($args{'src'}, "\n") == -1) |
|
626
|
0 |
12 |
unless my $abs_path = abs_path($args{'src'}) |
|
629
|
0 |
12 |
length($vol // '') ? : |
|
640
|
50 |
148 |
exists $self->{'Config::INI::RefVars __ SECTIONS_H'}{$tocopy_section} ? : |
|
652
|
165 |
5 |
if ($cleanup) { } |
|
656
|
8 |
787 |
if index($var, "=") != -1 |
|
660
|
102 |
18 |
unless $tocopy_sec_declared or %$tocopy_sec_vars |
|
663
|
2 |
3 |
if ($self->{'Config::INI::RefVars __ GLOBAL_MODE'}) { } |
|
679
|
22 |
148 |
if exists $backup->{'tocopy_section'} |
|
680
|
26 |
144 |
if exists $backup->{'tocopy_vars'} |
|
681
|
12 |
158 |
if exists $backup->{'not_tocopy'} |
|
693
|
22 |
1 |
defined $_[0]{'Config::INI::RefVars __ SECTIONS'} ? : |
|
697
|
21 |
1 |
defined $_[0]{'Config::INI::RefVars __ SECTIONS_H'} ? : |
|
840
|
2 |
562 |
unless exists $allowed_args->{$key} |