| lib/CodeGen/Protection/Format/Perl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 8 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 13 | 14 | 5 | unless my $perltidy = $self->tidy |
| 16 | 0 | 5 | if ('1' ne $perltidy) |
| 17 | 0 | 0 | unless (-e $perltidy) |
| 28 | 0 | 5 | if Perl::Tidy::perltidy('source', \$code, 'destination', \$tidied, 'stderr', \$stderr, @perltidy) |