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'] ]);
      ny $fn = catfile $self->share, 'data', "$id.jpg";
      AnyEvent::Util::fork_call {
           my $fn = shift;
           my $img = Imager::Simple
             ->read($fn)
             ->scale(200, 200, 'min');
           return $img->data;
      }, $fn, sub {
          my $data = shift;
          $w->write($data);
          $w->close;
          undef $w;
      };

    }]
  }
}

__PACKAGE__->run_if_script;