use strict;
use warnings;
+use CGI::Simple;
our $VERSION = '2.05';
}
sub get_request {
- require CGI::Simple;
shift->{cgi} = CGI::Simple->new();
}
sub send_output {
my $r = shift;
+ my %processed = map { "-".$_,$r->{extra_headers}{$_} }
+ keys %{$r->{extra_headers}};
print $r->{cgi}->header(
-type => $r->{content_type},
-charset => $r->{document_encoding},
-content_length => do { use bytes; length $r->{output} },
+ %processed
+ ? %processed
+ : {}
);
print $r->{output};
}