| line |
true |
false |
branch |
|
258
|
0 |
188 |
if ref $builtins ne "HASH" |
|
261
|
0 |
4 |
if ref $builtins->{$name} ne "CODE" |
|
268
|
1 |
187 |
if ref $args{'tocopy_section'} |
|
270
|
7 |
180 |
if (exists $args{'separator'}) { } |
|
273
|
1 |
6 |
if ref $sep |
|
274
|
1 |
5 |
unless $sep =~ /^[\Q$allowed_sep_chars\E]+$/ |
|
284
|
10 |
175 |
if exists $args{'tocopy_vars'} |
|
285
|
5 |
175 |
if exists $args{'not_tocopy'} |
|
289
|
1 |
176 |
if (exists $args{'varname_chk_re'}) |
|
291
|
0 |
1 |
if ref $args{'varname_chk_re'} ne "Regexp" |
|
539
|
2 |
473 |
if ref $args{$scalar_arg} |
|
542
|
60 |
176 |
if exists $self->{'Config::INI::RefVars __ SRC_NAME'} |
|
543
|
8 |
228 |
if exists $args{'src_name'} |
|
548
|
1 |
235 |
unless defined $src |
|
552
|
8 |
227 |
if (defined $tocopy_section) { } |
|
563
|
16 |
219 |
if ($tocopy_vars) |
|
568
|
10 |
220 |
if ($not_tocopy) |
|
577
|
24 |
203 |
$self->{'Config::INI::RefVars __ TOCOPY_VARS'} ? : |
|
585
|
88 |
139 |
if (my $ref_src = ref $src) { } |
|
586
|
80 |
8 |
unless exists $self->{'Config::INI::RefVars __ SRC_NAME'} |
|
588
|
87 |
1 |
if ($ref_src eq 'ARRAY') { } |
|
591
|
1 |
524 |
if ref $entry |
|
592
|
0 |
524 |
unless (defined $entry) |
|
603
|
14 |
125 |
if (index($src, "\n") == -1) { } |
|
605
|
0 |
14 |
unless my $abs_path = abs_path($path) |
|
607
|
14 |
0 |
unless exists $self->{'Config::INI::RefVars __ SRC_NAME'} |
|
610
|
0 |
14 |
length($vol // '') ? : |
|
616
|
125 |
0 |
unless exists $self->{'Config::INI::RefVars __ SRC_NAME'} |
|
625
|
14 |
211 |
if (not ref $args{'src'} and index($args{'src'}, "\n") == -1) |
|
627
|
0 |
14 |
unless my $abs_path = abs_path($args{'src'}) |
|
630
|
0 |
14 |
length($vol // '') ? : |
|
641
|
50 |
150 |
exists $self->{'Config::INI::RefVars __ SECTIONS_H'}{$tocopy_section} ? : |
|
653
|
167 |
5 |
if ($cleanup) { } |
|
657
|
8 |
802 |
if index($var, "=") != -1 |
|
661
|
104 |
18 |
unless $tocopy_sec_declared or %$tocopy_sec_vars |
|
664
|
2 |
3 |
if ($self->{'Config::INI::RefVars __ GLOBAL_MODE'}) { } |
|
680
|
22 |
150 |
if exists $backup->{'tocopy_section'} |
|
681
|
26 |
146 |
if exists $backup->{'tocopy_vars'} |
|
682
|
12 |
160 |
if exists $backup->{'not_tocopy'} |
|
694
|
22 |
1 |
defined $_[0]{'Config::INI::RefVars __ SECTIONS'} ? : |
|
698
|
21 |
1 |
defined $_[0]{'Config::INI::RefVars __ SECTIONS_H'} ? : |
|
841
|
2 |
569 |
unless exists $allowed_args->{$key} |