| blib/lib/ExtUtils/Scriptlet.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 16 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 32 | 1 | 13 | unless $code |
| 35 | 0 | 13 | if $^O eq 'MSWin32' |
| 37 | 1 | 12 | if $p{'at_argv'} and 'ARRAY' ne ref $p{'at_argv'} |
| 38 | 11 | 1 | !defined($p{'at_argv'}) ? : |
| 46 | 8 | 28 | defined $p{$_} ? : |
| 49 | 1 | 11 | unless open my $fh, "|- :raw $p{'encoding'}", "$p{'perl'} $p{'args'} - $p{'argv'}" |
| 55 | 0 | 11 | unless print $fh "$p{'at_argv'};" . 'binmode STDIN;' . "$code;" . "\n__END__\n" . $p{'payload'} |
| 67 | 10 | 1 | unless close $fh |