The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<!DOCTYPE html>
<html>
  <head>
    <title>Page not found</title>
    %= stylesheet begin
      body {
        background: url(<%= url_for '/mojo/pinstripe-light.png' %>);
        color: #445555;
        font: 0.9em 'Helvetica Neue', Helvetica, sans-serif;
        font-weight: normal;
        line-height: 1.5em;
        margin: 0;
      }
      code {
        background-color: #eef9ff;
        border: solid #cce4ff 1px;
        border-radius: 5px;
        color: #333;
        font: 0.9em Consolas, Menlo, Monaco, Courier, monospace;
        padding: 0.4em;
      }
      h1 {
        color: #2a2a2a;
        font-size: 1.5em;
        margin: 0;
      }
      pre {
        font: 0.9em Consolas, Menlo, Monaco, Courier, monospace;
        margin: 0;
        white-space: pre-wrap;
      }
      table {
        border-collapse: collapse;
        color: #333;
        margin-top: 1em;
        margin-bottom: 1em;
        width: 100%;
      }
      td {
        border-top: solid #cce4ff 1px;
        padding: 0.5em;
      }
      th {
        padding: 0.5em;
        text-align: left;
      }
      tr:nth-child(even) td { background-color: #ddeeff }
      tr:nth-child(odd) td { background-color: #eef9ff }
      #footer {
        padding-top: 1em;
        text-align: center;
      }
      #routes {
        background-color: #fff;
        border-bottom-left-radius: 5px;
        border-bottom-right-radius: 5px;
        box-shadow: 0px 0px 2px #999;
        margin-left: 5em;
        margin-right: 5em;
        padding: 1em;
        padding-top: 70px;
      }
      #wrapperlicious {
        max-width: 1000px;
        margin: 0 auto;
      }
    % end
  </head>
  <body>
    %= include inline => app->renderer->_bundled('mojobar')
    <div id="wrapperlicious">
      <div id="routes">
        <h1>Page not found... yet!</h1>
        <p>
          None of these routes matched your
          <code><%= $self->req->method %></code> request for
          <code><%= $self->req->url->path %></code>, maybe you need to add a
          new one?
        </p>
        % my $walk = begin
          % my ($walk, $route, $depth) = @_;
          <tr>
            <td>
              % my $pattern = $route->pattern->pattern || '/';
              % $pattern = "+$pattern" if $depth;
              <pre><%= '  ' x $depth %><%= $pattern %></pre>
            </td>
            <td>
              <pre><%= uc(join ',', @{$route->via || []}) || '*' %></pre>
            </td>
            <td>
              % my $name = $route->name;
              <pre><%= $route->has_custom_name ? qq{"$name"} : $name %></pre>
            </td>
          </tr>
          % $depth++;
          %= $walk->($walk, $_, $depth) for @{$route->children};
          % $depth--;
        % end
        <table>
          <tr>
            <th>Pattern</th>
            <th>Methods</th>
            <th>Name</th>
          </tr>
          %= $walk->($walk, $_, 0) for @{app->routes->children};
        </table>
      </div>
    </div>
    <div id="footer">
      %= link_to 'http://mojolicio.us' => begin
        %= image '/mojo/logo-black.png', alt => 'Mojolicious logo'
      % end
    </div>
  </body>
</html>