| blib/lib/Tak/EvalService.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 14 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 0 | 0 | $self->has_service_client ? : |
| 25 | 0 | 0 | unless ($perl) |
| 28 | 0 | 0 | if (my $ref = ref $perl) |
| 33 | 0 | 0 | if (eval { do { ($stdout, $stderr) = &capture(sub { @ret = $self->eval_withlexicals->eval($perl); } ); 1 } }) { } |
| 44 | 0 | 0 | unless (eval { do { $dumped_ret = Dumper(@ret); 1 } }) |
| 45 | 0 | 0 | $ok ? : |
| 49 | 0 | 0 | $ok ? : |