Branch Coverage

blib/lib/HTML/FormatExternal.pm
Criterion Covered Total %
branch 3 66 4.5


line true false branch
44 0 0 if (ref $html)
64 0 0 if (defined $options{'base'})
68 0 0 if ($input_wide)
69 0 0 unless ($options{'input_charset'})
73 0 0 if ($options{'input_charset'} eq 'entitize') { }
78 0 0 unless binmode $fh, $layer
82 0 0 unless do { close $fh if print $fh $html_str }
83 0 0 if print $fh $html_str
115 0 0 if (defined $leftmargin or defined $rightmargin)
116 0 0 unless (defined $leftmargin)
117 0 0 unless (defined $rightmargin)
122 0 0 if ($options{'output_wide'})
127 0 0 if (defined $options{'base'})
144 0 0 unless do { defined sysread($fh, $initial, 4) if open $fh, '<', $filename and binmode $fh }
145 0 0 if open $fh, '<', $filename and binmode $fh
156 0 0 unless do { close $fh if defined syswrite($tempfh, $initial) and File::Copy::copy($fh, $tempfh) and close $tempfh }
157 0 0 if defined syswrite($tempfh, $initial) and File::Copy::copy($fh, $tempfh) and close $tempfh
179 0 0 unless (@run)
197 0 0 if ($options{'output_wide'})
202 0 0 if ($leftmargin)
212 0 0 if ($@ =~ /^Insecure/)
223 29 10 unless (@ipc_options)
234 0 39 if (defined $version)
244 0 0 unless binmode $fh
254 0 0 if (not defined $$options{'output_wide'} or $$options{'output_wide'} eq 'as_input')
273 0 0 unless ($input_wide)
286 0 0 if (not defined $input_charset or lc $input_charset eq 'utf-32')
287 0 0 if ($str =~ /^\000\000\376\377/) { }
0 0 elsif ($str =~ /^\377\376\000\000/) { }
295 0 0 if (not defined $input_charset or lc $input_charset eq 'utf-16')
296 0 0 if ($str =~ /^\376\377/) { }
0 0 elsif ($str =~ /^\377\376/) { }
304 0 0 if (defined $input_charset)