Branch Coverage

blib/lib/Net/Squid/ReverseProxy.pm
Criterion Covered Total %
branch 0 80 0.0


line true false branch
16 0 0 unless (defined $arg{'squid_version'} and defined $arg{'squid_conf'} and defined $arg{'squid'})
22 0 0 unless (-f $arg{'squid_conf'} and -w $arg{'squid_conf'})
26 0 0 unless (-f $arg{'squid'} and -x $arg{'squid'})
48 0 0 if ($arg{'cache_dir'})
52 0 0 if ($user ne 'nobody')
64 0 0 unless open $fd, '<', "$module_dir/squidcfg"
68 0 0 if (/ARG INPUT BEGIN/)
76 0 0 if ($version < 3)
83 0 0 unless open $fd, '<', $cfg
89 0 0 unless open $fdw, '>', $cfg
96 0 0 if ($? == 0) { }
101 0 0 unless open $fdw, '>', $cfg
122 0 0 unless ($site_dst and @ip)
131 0 0 unless open $fd, '<', $cfg
133 0 0 if /SITE END/
134 0 0 if (/^cache_peer_access/)
143 0 0 unless open $fd, '<', $cfg
146 0 0 if (/SITE END/)
167 0 0 unless open $fd, '<', $cfg
173 0 0 unless open $fdw, '>', $cfg
178 0 0 if (@err) { }
180 0 0 unless open $fdw, '>', $cfg
205 0 0 unless open $fd, '<', $cfg
207 0 0 if (/^acl\s+service_(\d+)\s+dstdomain\s+$domain$/)
214 0 0 unless open $fd, '<', $cfg
218 0 0 if /origin_${id}_/ or /service_$id\s+/
220 0 0 if $next
225 0 0 unless open $fd, '<', $cfg
231 0 0 unless open $fdw, '>', $cfg
236 0 0 if (@err) { }
238 0 0 unless open $fdw, '>', $cfg
261 0 0 unless open $fd, '<', $cfg
263 0 0 if (/^acl\s+service_(\d+)\s+dstdomain\s+$domain$/)
284 0 0 unless open $fd, '<', $cfg
286 0 0 if (/SITE BEGIN/)
288 0 0 if /SITE END/
293 0 0 if ($elem[0] eq 'cache_peer_access')
301 0 0 unless open $fd, '<', $cfg
311 0 0 unless open $fd, '<', $cfg
342 0 0 unless ($$peer{$name}[2] =~ /name=/)