File Coverage

blib/lib/CGI/Application/Emulate/PSGI.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	36	37	97.3

package CGI::Application::Emulate::PSGI;

use 5.008;
use strict;
use warnings;
use CGI;
use CGI::Emulate::PSGI;
use CGI::Parse::PSGI;

our $VERSION = '0.02';

sub handler {
    my ($class, $code,) = @_;

    return sub {
        my $env = shift;
        my $output = do {
            local %ENV = (
                %ENV,
                CGI::Emulate::PSGI->emulate_environment($env),
                CGI_APP_RETURN_ONLY => 1,
            );
            local *STDIN  = $env->{'psgi.input'};
            local *STDERR = $env->{'psgi.errors'};
            CGI::initialize_globals();
            $code->();
        };
        return CGI::Parse::PSGI::parse_cgi_output(\$output);
    };
}

1;
__END__