We may not support this after all, CGI.pm is already
legacy-enough and far more powerful.
my $out = select;
$out->binmode;
-if (@ARGV && $ARGV[0] eq 'static') {
- $out->write($ret->[2]->[0]); # only show the body
-} else { # CGI
- if (ref($ret) eq 'CODE') {
- $ret->(*dump_header);
- } else {
- my ($status, $headers, $body) = @$ret;
- dump_header([$status, $headers])->write($body->[0]);
- }
+if (ref($ret) eq 'CODE') {
+ $ret->(*dump_header);
+} else {
+ my ($status, $headers, $body) = @$ret;
+
+ dump_header([$status, $headers])->write($body->[0]);
}
sub dump_header {