summaryrefslogtreecommitdiffhomepage
path: root/test/perl/body_io_file/psgi.pl
blob: 2612ae1867f2342c7c98923a5bfd0df84d65a944 (plain) (blame)
1
2
3
4
5
6
7
my $app = sub {
    my ($environ) = @_;

    open my $io, '<file';

    return ['200', ['Content-Length' => 5], $io];
};