Skip to content
This repository
branch: impl-standalon…
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 7 lines (6 sloc) 0.23 kb
1 2 3 4 5 6
use File::Basename;
my $path = dirname(__FILE__) . "/../../t/assets/face.jpg";
my $handler = sub {
    open my $fh, "<", $path or die $!;
    return [ 200, [ "Content-Type" => "image/jpeg", "Content-Length" => -s $fh ], $fh ];
};
Something went wrong with that request. Please try again.