Branch Coverage

inc/Test/Base/Filter.pm
Criterion Covered Total %
branch 4 62 6.4


line true false branch
12 4 0 unless defined $arguments
20 12 0 if @_ == 1
29 0 0 unless @_
30 0 0 if (ref $_[0] eq 'ARRAY')
46 0 0 unless @_
47 0 0 if (ref $_[0] eq 'ARRAY')
48 0 0 if (ref $_[0][0] eq 'ARRAY')
116 0 0 if $@
156 0 0 unless open my $execution, "$^X $tmpfile 2>&1 |"
161 0 0 unless unlink $tmpfile
169 0 0 if (ref $ref eq 'HASH')
174 0 0 if (ref $ref eq 'ARRAY')
199 4 0 unless defined $string
206 0 0 unless length $text
214 0 8 unless defined $text
229 0 0 unless open my $fh, $file
238 0 0 if ($text =~ /\n.*?\n/s) { }
239 0 0 unless defined $flags
247 0 0 if $@
256 0 0 unless $self->current_arguments =~ /^(\d+)(?:,(\d))?$/
259 0 0 unless defined $y
260 0 0 if $x > $y
272 0 0 if (defined $separator and $separator =~ s[^/(.*)/$][$1])
276 0 0 unless $separator
306 0 0 unless my $file = $self->current_arguments
308 0 0 if ($file =~ m[(.*)[\\/]])
310 0 0 unless (-e $dir)
312 0 0 unless File::Path::mkpath($dir)
316 0 0 unless open my $fh, ">$file"
331 0 0 unless open my $script, ">$filename"
334 0 0 unless close $script