Branch Coverage

inc/Test/Base/Filter.pm
Criterion Covered Total %
branch 4 60 6.6


line true false branch
15 2 0 unless defined $arguments
23 39 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 0 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 0 0 unless defined $string
209 0 0 unless length $text
231 0 0 unless open my $fh, $file
240 0 2 if ($text =~ /\n.*?\n/s) { }
241 0 0 unless defined $flags
249 0 2 if $@
258 0 0 unless $self->current_arguments =~ /^(\d+)(?:,(\d))?$/
261 0 0 unless defined $y
262 0 0 if $x > $y
274 0 0 if (defined $separator and $separator =~ s[^/(.*)/$][$1])
278 0 0 unless $separator
308 0 0 unless my $file = $self->current_arguments
310 0 0 if ($file =~ m[(.*)[\\/]])
312 0 0 unless (-e $dir)
314 0 0 unless File::Path::mkpath($dir)
318 0 0 unless open my $fh, ">$file"
333 0 0 unless open my $script, ">$filename"
336 0 0 unless close $script