The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<!DOCTYPE html>
<html>
  <head>
    <title><%= $title %></title>
    %= javascript '/mojo/prettify/run_prettify.js'
    %= stylesheet '/mojo/prettify/prettify-mojo-light.css'
    <style>
      a { color: inherit }
      a:hover { color: #2a2a2a }
      a img { border: 0 }
      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;
      }
      dd {
        margin: 0;
        margin-left: 2em;
      }
      dt {
        color: #2a2a2a;
        font-weight: bold;
        margin-left: 0.9em;
      }
      :not(pre) > code {
        background-color: rgba(0, 0, 0, 0.04);
        border-radius: 3px;
        font: 0.9em Consolas, Menlo, Monaco, Courier, monospace;
        padding: 0.3em;
      }
      h1 { font-size: 1.5em }
      h2 { font-size: 1.3em }
      h3 { font-size: 1.1em }
      h4 { font-size: 0.9em }
      h1, h2, h3, h4 {
        color: #2a2a2a;
        margin: 0;
        position: relative;
      }
      h1 a, h2 a, h3 a, h4 a { text-decoration: none }
      li > p {
        margin-bottom: 0;
        margin-top: 0;
      }
      pre {
        background-color: #fafafa;
        border: 1px solid #c1c1c1;
        border-radius: 3px;
        font: 100% Consolas, Menlo, Monaco, Courier, monospace;
        padding: 1em;
      }
      pre > code {
        color: #4d4d4c;
        font: 0.9em Consolas, Menlo, Monaco, Courier, monospace;
        line-height: 1.5em;
        text-align: left;
        text-shadow: #eee 0 1px 0;
        white-space: pre-wrap;
      }
      ul { list-style-type: square }
      #footer {
        padding-top: 0.5em;
        text-align: center;
      }
      #more {
        display: inline;
        font-size: 0.8em;
      }
      #perldoc {
        background-color: #fff;
        border: 1px solid #c1c1c1;
        border-bottom-left-radius: 5px;
        border-bottom-right-radius: 5px;
        margin-left: 5em;
        margin-right: 5em;
        padding: 3em;
        padding-top: 70px;
      }
      #perldoc > ul:first-of-type a { text-decoration: none }
      #links { padding-bottom: 1em }
      #wrapperlicious {
        max-width: 1000px;
        margin: 0 auto;
      }
      .permalink {
        display: none;
        left: -0.75em;
        position: absolute;
        padding-right: 0.25em;
      }
      h1:hover .permalink, h2:hover .permalink, h3:hover .permalink,
      h4:hover .permalink {
        display: block;
      }
    </style>
  </head>
  <body>
    %= include 'mojo/menubar'
    <div id="wrapperlicious">
      <div id="perldoc">
        <div id="links">
          % my $path;
          % for my $part (split '/', $module) {
            %= '::' if $path
            % $path .= "/$part";
            %= link_to $part => url_for("/perldoc$path")
          % }
          <div id="more">
            (<%= link_to 'source' => url_for("/perldoc$path.txt") %>,
            <%= link_to 'CPAN' => $cpan %>)
          </div>
        </div>
        <h1><a id="toc">CONTENTS</a></h1>
        <ul>
          % for my $part (@$parts) {
            <li>
              %= link_to splice(@$part, 0, 2)
              % if (@$part) {
                <ul>
                  % while (@$part) {
                    <li><%= link_to splice(@$part, 0, 2) %></li>
                  % }
                </ul>
              % }
            </li>
          % }
        </ul>
        %= content 'perldoc'
      </div>
    </div>
    <div id="footer">
      %= link_to 'http://mojolicious.org' => begin
        <picture>
          <img src="<%= url_for '/mojo/logo-black.png' %>"
            srcset="<%= url_for '/mojo/logo-black-2x.png' %> 2x"
            alt="Mojolicious logo">
        </picture>
      % end
    </div>
  </body>
</html>