Branch Coverage

blib/lib/SMIL/Layout.pm
Criterion Covered Total %
branch 10 86 11.6


line true false branch
33 0 0 $rl ? :
39 0 0 $rl ? :
47 0 1 if ($hash{$switch_target})
59 1 0 if (not $hash{'root_layout'}) { }
86 0 0 if ($type =~ /gif/i or $content =~ /^GIF/) { }
0 0 elsif ($type =~ /jpe?g/i) { }
0 0 elsif ($type eq 'rt' or $type =~ /rn-realtext/) { }
0 0 elsif ($type eq 'rp' or $type =~ /rn-realpix/) { }
87 0 0 if $content =~ /GIF.{3}(.{4})/
96 0 0 if $content =~ /]*height="(\d*)"[^>]*?width="(\d*)"/
98 0 0 if not $height || $width and $content =~ /]*width="(\d*)"[^>]*?height="(\d*)"/
101 0 0 unless $height and $width
105 0 0 if $content =~ /]*height="(\d*)"[^>]*?width="(\d*)"/
107 0 0 if not $height || $width and $content =~ /]*width="(\d*)"[^>]*?height="(\d*)"/
110 0 0 unless $height and $width
125 0 0 unless ($the_regions and @$the_regions)
130 0 0 if ($the_regions and @{$the_regions;})
132 0 0 if ($the_region and $region_name eq $the_region->getAttributeValue('id') || $region_name eq $the_region->getAttributeValue('name'))
149 2 0 if $hash{$name}
153 0 2 if ($hash{$module_defined_src})
160 0 0 if ($ref =~ /^http/) { }
164 0 0 if ($lwp_installed) { }
178 0 0 if (open FILE, $ref) { }
193 0 0 if $ref =~ /\.(\w*)$/
196 0 0 if ($content)
200 0 0 if ($height and $width)
202 0 0 unless defined $hash{'height'}
203 0 0 unless defined $hash{'width'}
210 0 2 if ($hash{$module_defined_align})
217 0 0 unless defined $hash{'height'}
218 0 0 if ('middle' eq $hash{$module_defined_align} and not defined $hash{'top'})
226 0 0 unless defined $hash{'width'}
227 0 0 unless (defined $hash{'left'})
228 0 0 if ($hash{$module_defined_align} =~ /center/i) { }
0 0 elsif ($hash{$module_defined_align} =~ /right/i) { }
0 0 elsif ($hash{$module_defined_align} =~ /left/i) { }
242 0 0 if (defined $hash{'left'} and defined $hash{$left_offset})
246 0 0 if (defined $hash{'top'} and defined $hash{$top_offset})
256 0 2 unless $hash{'top'}
257 0 2 unless $hash{'left'}
261 1 1 unless ($current_regions and @$current_regions)
267 0 2 if ($check_errors)
269 0 0 if $attrs{$id} and $reg->getAttribute($id) eq $attrs{$id}