Branch Coverage

inc/Test/Base/Filter.pm
Criterion Covered Total %
branch 6 62 9.6


line true false branch
15 10 0 unless defined $arguments
23 244 0 if @_ == 1
32 0 0 unless @_
33 0 0 if (ref $_[0] eq 'ARRAY')
49 0 0 unless @_
50 0 0 if (ref $_[0] eq 'ARRAY')
51 0 0 if (ref $_[0][0] eq 'ARRAY')
119 0 36 if $@
159 0 0 unless open my $execution, "$^X $tmpfile 2>&1 |"
164 0 0 unless unlink $tmpfile
172 0 0 if (ref $ref eq 'HASH')
177 0 0 if (ref $ref eq 'ARRAY')
202 10 0 unless defined $string
209 0 6 unless length $text
217 0 202 unless defined $text
232 0 0 unless open my $fh, $file
241 0 0 if ($text =~ /\n.*?\n/s) { }
242 0 0 unless defined $flags
250 0 0 if $@
259 0 0 unless $self->current_arguments =~ /^(\d+)(?:,(\d))?$/
262 0 0 unless defined $y
263 0 0 if $x > $y
275 0 0 if (defined $separator and $separator =~ s[^/(.*)/$][$1])
279 0 0 unless $separator
309 0 0 unless my $file = $self->current_arguments
311 0 0 if ($file =~ m[(.*)[\\/]])
313 0 0 unless (-e $dir)
315 0 0 unless File::Path::mkpath($dir)
319 0 0 unless open my $fh, ">$file"
334 0 0 unless open my $script, ">$filename"
337 0 0 unless close $script