Branch Coverage

blib/lib/MHFS/Util.pm
Criterion Covered Total %
branch 25 76 32.8


line true false branch
20 2 0 if (eval q[use feature 'fc'; 1;]) { }
46 0 0 if (-e $lockname)
62 1 1 if (utf8::is_utf8($data))
66 0 2 unless open my $fh, ">", $filename
74 0 1 unless open my $fh, ">:encoding(UTF-8)", $filename
82 0 1 unless open my $fh, ">:encoding(UTF-8)", $filename
90 0 2 unless open my $fh, "<", $filename
98 0 2 unless open my $fh, "<:encoding(UTF-8)", $filename
106 0 1 unless open my $fh, "<:encoding(UTF-8)", $filename
118 0 0 unless $dir_matches
119 0 0 if (/$name_req/iu)
120 0 0 if -d $_
126 0 0 if (defined $path_req)
149 0 0 if ($pid == 0) { }
207 0 0 unless (opendir $dir, $path)
215 0 0 if $file =~ /^..?$/u
222 0 0 unless (defined $path)
223 0 0 if $options->{'on_dir_end'}
227 0 0 if (-d $path)
228 0 0 if $options->{'on_dir_start'}
234 0 0 if ($root)
238 0 0 unless (defined $size)
242 0 0 if $size < $options->{'min_file_size'}
243 0 0 if $options->{'on_file'}
259 0 0 unless (defined $data{$multiple})
265 0 0 unless defined $data{$m2}
324 1 3 if (scalar @values != 4)
328 1 8 unless $values[$i] <= 255
357 32 72 if (($byteval & $rule->[0]) == $rule->[1])
362 3 32 unless $charlen
367 12 48 if (($cont_byte & 192) != 128)
373 0 20 if (length $char > 1)
385 5 8 unless length $octets
394 1 0 if (length $octets >= 6 and $char->{'bytelength'} == 3 and ($char->{'codepoint'} & $mask) == 55296)
396 1 0 if ($secondchar->{'bytelength'} == 3 and ($secondchar->{'codepoint'} & $mask) == 56320)
418 0 0 unless length $escapedoctets
447 0 0 if ($mebibytes >= 1024) { }
474 0 1 if ($Carp::Verbose)