gistfile1.pl

          sub {
              my $env = shift;
              if (my $method = $router->match($env)) {
                  return $method->();
              } else {
                  return [$router->code, $router->headers, [$router->message]];
              }
          };