Branch Coverage

blib/lib/Perlbal/Plugin/Vhosts.pm
Criterion Covered Total %
branch 23 34 67.6


line true false branch
27 0 10 unless ($selname ||= $$mc{'ctx'}{'last_created'})
32 1 9 unless $ss and $$ss{'role'} eq 'selector'
36 1 8 unless $host =~ /^[\w\-\_\.\*\;\:]+$/
59 0 4 unless ($svc and $$svc{'role'} eq 'selector')
83 0 0 unless $vhosts
99 0 89 unless $req
104 17 72 if $vhost
112 0 89 if ($vhost and $uri =~ m[^/__using/([\w\.]+)(?:/\w+)(?:\?.*)?$])
118 0 0 $svc_name ? :
119 0 0 unless ($svc)
134 87 16 $map_name ? :
136 14 89 unless $svc or $force
138 2 87 unless ($svc)
155 72 17 unless $vhost
161 12 5 if &$map_using($vhost)
168 0 5 if &$map_using($wild)
172 3 4 if &$map_using($wild)