Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tag: 0.9919
Fetching contributors…

Cannot retrieve contributors at this time

7 lines (6 sloc) 0.28 kb
use File::Basename;
my $path = $ENV{PSGI_IMAGE_FILE} || dirname(__FILE__) . "/../../share/kyoto.jpg";
my $handler = sub {
open my $fh, "<:raw", $path or die $!;
return [ 200, [ "Content-Type" => "image/jpeg", "X-Sendfile" => $path, "Content-Length" => -s $fh ], $fh ];
};
Jump to Line
Something went wrong with that request. Please try again.