| blib/lib/MCP/Run.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 22 | 86.3 |
| line | true | false | branch |
|---|---|---|---|
| 64 | 2 | 5 | if (my $allowed = $self->allowed_commands) |
| 66 | 1 | 1 | unless ($first_word and grep {$_ eq $first_word;} @$allowed) |
| 71 | 3 | 3 | if (my $validator = $self->validator) |
| 73 | 1 | 1 | unless (defined $vresult and not ref $vresult and $vresult eq 1) |
| 74 | 1 | 1 | defined $vresult && length $vresult ? : |
| 88 | 0 | 0 | ref $class_or_self ? : |
| 107 | 0 | 6 | if ($compress) |
| 113 | 5 | 1 | if length $stdout |
| 114 | 1 | 5 | if length $stderr |
| 115 | 1 | 5 | if defined $error |
| 117 | 1 | 5 | $exit_code != 0 ? : |