Branch Coverage

blib/lib/IPChains/PortFW.pm

Criterion	Covered	Total	%
branch	1	52	1.9

line	true	false	branch
42	1	0	unless $path
57	0	0	if (@_ == 3)
58	0	0	if ($VALID_OPTIONS{$key}) { }
80	0	0	unless pipe $r_fh, $w_fh
84	0	0	unless defined $pid
86	0	0	if ($pid) { }
99	0	0	if $?
107	0	0	unless open STDOUT, '>&' . fileno($w_fh)
109	0	0	unless open STDERR, '>&' . fileno($w_fh)
111	0	0	unless exec $$self{'ipmasqadm'}, 'portfw', @args
120	0	0	unless exists $$self{'Proto'}
121	0	0	unless $$self{'Proto'} =~ /udp|tcp|6|17/i
122	0	0	unless exists $$self{'LocalAddr'}
123	0	0	unless exists $$self{'LocalPort'}
124	0	0	unless exists $$self{'RemAddr'}
125	0	0	unless exists $$self{'RemPort'}
126	0	0	if (exists $$self{'Pref'})
127	0	0	unless $$self{'Pref'} =~ /\d+/ and $$self{'Pref'} >= 0
133	0	0	if exists $$self{'Pref'}
142	0	0	unless exists $$self{'Proto'}
143	0	0	unless $$self{'Proto'} =~ /udp|tcp|6|17/i
144	0	0	unless exists $$self{'LocalAddr'}
145	0	0	unless exists $$self{'LocalPort'}
149	0	0	if exists $$self{'RemAddr'}
164	0	0	unless defined $use_dns and $use_dns
167	0	0	unless defined $output