Branch Coverage

blib/lib/Test/Script/Run.pm
Criterion Covered Total %
branch 42 64 65.6


line true false branch
82 10 0 unless (ref $stdout or ref $stderr)
88 13 2 if (@cmd) { }
91 9 4 if (ref $stdout eq 'SCALAR')
95 9 4 if (ref $stderr eq 'SCALAR')
99 8 5 $return_stdouterr ? :
142 0 6 if ref $_[0] eq 'ARRAY'
143 6 0 @_ ? :
179 15 0 if (defined $script)
181 2 13 if ('File::Spec'->file_name_is_absolute($script)) { }
182 0 2 unless (-f $script)
193 11 82 if (-f 'File::Spec'->catfile($tmp, $bin, $script))
202 2 11 unless ($found)
207 2 13 if $fail
213 13 0 if $INC{'Devel/Cover.pm'}
214 0 13 if ($INC{'Devel/DProf.pm'})
219 13 0 if (defined $script)
278 4 4 if ($type eq 'stderr') { }
304 0 12 unless (@$exp)
309 0 12 ref $item eq 'Regexp' ? :
0 12 unless ref $item eq 'Regexp' ? $output =~ /$item/ : $output eq $item
325 0 0 unless defined $line
332 0 4 if (@$stdout_err)
376 0 3 ref $exp_line eq 'Regexp' ? :
2 1 if (ref $exp_line eq 'Regexp' ? $line =~ /$exp_line/ : $line eq $exp_line)
399 0 3 ref $exp_line eq 'Regexp' ? :
2 1 if (ref $exp_line eq 'Regexp' ? $line =~ /$exp_line/ : $line eq $exp_line)
426 0 1 if (@$errors)
440 0 11 if (_is_windows()) { }
442 0 0 if ($@) { }
451 0 11 if ($@) { }
458 11 0 $msg ? :
2 9 defined $args && length $args ? :