Branch Coverage

blib/lib/WWW/Link_Controller/InfoStruc.pm
Criterion Covered Total %
branch 51 88 57.9


line true false branch
41 0 2 unless ref($url_array_sorted) =~ /ARRAY/
43 0 2 unless ref($url_array_sorted) =~ /ARRAY/
46 0 2 unless open INFOSTRUCS, $filename
48 0 2 if $verbose & 64
52 0 5 if $conf_line =~ /^\s*(?:\#.*)$/
53 0 5 if $verbose
56 0 5 if $conf_line =~ /^\s*(\S+)\s+(\S+)\s.*\%/
66 0 5 if $junk
72 4 1 if ($mode =~ /^(?:www|directory)$/)
82 1 0 if ($mode eq 'advanced')
83 0 1 unless (defined $$infostruc_hash{$url})
99 1 0 unless (defined $$infostruc{'url_base'})
100 0 1 if $verbose
106 1 0 unless (defined $$infostruc{'mode'})
107 0 1 unless $no_warn
110 1 0 if defined $$infostruc{'file_base'}
114 0 1 if $$infostruc{'mode'} eq 'directory' and not defined $$infostruc{'file_base'}
122 0 5 unless $$infostruc{'url_base'} eq $url
127 0 5 if $verbose & 64
136 4 1 if defined $$infostruc{'file_base'}
172 0 4 unless ref($array) =~ /ARRAY/ and defined $key
184 0 13 unless ref($handle) =~ /ARRAY/
186 4 9 unless defined $position
188 1 12 if $position > $#$handle
190 0 12 if $verbose & 128
200 1 3 unless defined $pos
201 0 3 if $pos > $#$array
227 0 2 if ($path =~ m[(^|/)..($|/)])
251 0 2 unless defined $url
253 0 2 unless $url =~ /[a-z][a-z0-9-]+:/i
255 0 2 if @_
260 1 1 unless (defined $base and $url =~ /^$base/)
263 0 1 unless $no_warn
268 0 1 if $verbose & 64
281 0 1 unless (defined $file_base)
292 0 1 unless defined $relative
323 0 2 unless defined $file
325 0 2 if @_
329 1 1 unless (defined $base and $file =~ /^$base/)
332 0 1 unless $no_warn
337 0 1 unless my $url_base = $$infostruc{'url_base'}
341 0 1 if $verbose & 64
350 0 1 unless defined $relative
352 0 1 if $relative =~ m[^/]