gistfile1.txt

package Shutterstock::Example::Nonblock;

use Web::Simple;
use Plack::App::File;
use File::ShareDir::ProjectDistDir;
use File::Spec::Functions;
use Imager::Simple;

sub share { our $share ||= dist_dir 'Shutterstock-Example-Nonblock' }

sub dispatch_request {
  sub (/) {
    Plack::App::File->new(file =>
      catfile shift->share, 'html', 'index.html')},
  sub (/static/...) {
    Plack::App::File->new(root =>
      catdir shift->share, 'static')},
  sub (/img/*) {
    my ($self, $id) = @_;
    [sub {
      my $w = (my $respond = shift)
        ->([ 200, ['Content-Type' => 'image/jpeg'] ]);
      my $img = Imager::Simple
        ->read(catfile $self->share, 'data', "$id.jpg")
        ->scale(200, 200, 'min');

      $w->write($img->data);
      $w->close
    }]
  }
}

__PACKAGE__->run_if_script;