Branch Coverage

lib/Text/DHCPLeases.pm

Criterion	Covered	Total	%
branch	18	22	81.8

line	true	false	branch
57	0	1	unless defined $argv{'file'}
85	2	2	if (%argv) { }
89	60	14	if (not defined $obj->$key or $obj->$key ne $argv{$key})
94	8	60	if $match
100	2	2	wantarray ? :
147	34	0	if ($header =~ /^(lease|host|group|subgroup|failover peer)/o) { }
168	0	1	unless open FILE, "<$file"
176	4	256	if $line =~ /^#|^$/o
177	34	222	if (not $open and $line =~ /^(.*) \{$/o)
186	222	0	if ($open)
187	34	188	if ($line =~ /^\}$/o) { }