Branch Coverage

blib/lib/Config/Yacp.pm

Criterion	Covered	Total	%
branch	43	78	55.1

line	true	false	branch
44	8	0	if (exists $$args{'FileName'})
47	8	0	if (exists $$args{'CommentMarker'})
51	1	7	unless ($cm =~ /[#;]/)
60	0	7	unless open FILE, "$file"
61	0	7	unless flock FILE, 1
78	0	4	unless defined $section
79	0	4	unless exists $$Config::Yacp::CONFIG{$section}
86	0	2	if scalar @_ < 3
87	0	2	unless exists $$Config::Yacp::CONFIG{$section}
88	0	2	unless exists $$Config::Yacp::CONFIG{$section}{$parameter}
95	0	1	if scalar @_ < 4
96	0	1	unless exists $$Config::Yacp::CONFIG{$section}
97	0	1	unless exists $$Config::Yacp::CONFIG{$section}{$parameter}
103	0	4	if scalar @_ < 3
104	0	4	unless exists $$Config::Yacp::CONFIG{$section}
105	0	4	unless exists $$Config::Yacp::CONFIG{$section}{$parameter}
106	1	3	if (not defined $$Config::Yacp::CONFIG{$section}{$parameter}[1]) { }
117	0	3	if scalar @_ < 2
118	1	2	if exists $$Config::Yacp::CONFIG{$section}
124	0	2	if scalar @_ < 4
125	1	1	unless (exists $$Config::Yacp::CONFIG{$section})
128	0	2	if exists $$Config::Yacp::CONFIG{$section}{$para}
130	1	1	if (defined $comment)
135	0	1	if scalar @_ < 4
136	0	1	unless exists $$Config::Yacp::CONFIG{$section}
137	0	1	unless exists $$Config::Yacp::CONFIG{$section}{$para}
147	0	1	if scalar @_ < 2
148	0	1	unless exists $$Config::Yacp::CONFIG{$section}
154	0	1	if scalar @_ < 3
155	0	1	unless exists $$Config::Yacp::CONFIG{$section}
156	0	1	unless exists $$Config::Yacp::CONFIG{$section}{$para}
162	0	2	if scalar @_ < 3
163	0	2	unless exists $$Config::Yacp::CONFIG{$section}
164	0	2	unless exists $$Config::Yacp::CONFIG{$section}{$para}
165	1	1	if (defined $$Config::Yacp::CONFIG{$section}{$para}[1]) { }
179	0	0	unless flock FH, 2
184	0	0	if (defined $$Config::Yacp::CONFIG{$section}{$para}[1]) { }
192	0	0	unless flock FH, 8
204	14	15	if (my $cmmnt = $$aref[2])