Branch Coverage

blib/lib/Lembas.pm
Criterion Covered Total %
branch 0 76 0.0


line true false branch
68 0 0 unless my $subprocess = start($self->shell, '<', $self->input, '1>', $self->output, '2>', $self->errput)
113 0 0 if (${$self->errput;})
120 0 0 if ($params{'blocking'}) { }
128 0 0 if ($old_output eq ${$self->output;})
149 0 0 if (not defined $command->{'shell'}) { }
172 0 0 if (exists $expected_output->{'command'})
176 0 0 if ($expected_output->{'command'} eq 'fastforward') { }
0 0 elsif ($expected_output->{'command'} eq 'wait_less_than') { }
198 0 0 $fastforwarding ? :
0 0 if $self->{'debug'}
206 0 0 if (my $error = $@) { }
207 0 0 unless $error eq "alarm\n"
212 0 0 if ($had_timeout)
221 0 0 if ($expected_output->{'match_type'} eq 'literal') { }
0 0 elsif ($expected_output->{'match_type'} eq 'regex') { }
240 0 0 if ($fastforwarding)
245 0 0 if ($details[$current_test - 1]{'ok'}) { }
275 0 0 if (${$self->output;}) { }
278 0 0 defined $command->{'shell'} ? :
284 0 0 defined $command->{'shell'} ? :
320 0 0 if ($line =~ /^#/) { }
0 0 elsif ($line =~ /^$/) { }
0 0 elsif ($line =~ /^ {4}\$ (.*)$/) { }
0 0 elsif ($line =~ /^($output_prefix_re)(.*)$/) { }
0 0 elsif ($line =~ /^($commands_re)\s*(.*)$/) { }
324 0 0 if ($handle->input_line_number <= 1 and $line =~ /^#!/)
353 0 0 unless (grep {exists $_->{'shell'};} @{$commands;})
370 0 0 unless (exists $valid_commands{$command})
379 0 0 unless ($command eq 'preamble' or grep {exists $_->{'shell'};} @{$commands;})
390 0 0 if ($parameters and not @parameters)
401 0 0 if ($command eq 'preamble') { }
0 0 elsif ($command eq 'wait_less_than') { }
402 0 0 if (@{$commands;})
418 0 0 if (@parameters > 2 or @parameters < 1) { }
0 0 elsif (@parameters == 2) { }
425 0 0 if ($unit =~ /second(?:s)?/) { }
0 0 elsif ($unit =~ /minute(?:s)?/) { }
459 0 0 if (@errors)