The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
    <ul id="tags-list">
% while ( my $tag = $tags->next() ) {
      <li>
        <a class="view-tag" href="<% $tag->uri() %>"
           title="<% loc( 'Other pages tagged %1', $tag->tag() ) %>">\
<% $tag->tag() | h, nbsp %></a>\
%   if ($can_edit) {
&nbsp;<a class="delete-tag" href="<% $page->uri( view => 'tag/' . uri_escape( $tag->tag() ) ) %>"
         title="<% loc('Remove this tag') %>"><sup>x</sup></a>
%   }
      </li>
% }
% unless ( $can_edit || $tags->index() ) {
      <li><% loc('This page does not have any tags yet.') %></li>
% }
    </ul>

<%args>
$can_edit
$page
</%args>

<%init>
my $tags = $page->tags();
</%init>

<%flags>
inherit => undef
</%flags>