The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<ul class="nav nav-list">

% my $n = stash 'nav_item';
% my @selected;
% for my $a (@{ toto_config->{sidebar}{$n} } ) {
    % if ($a !~ /\//) {
        % my $is_selected = (current_object eq $a) && ((stash 'show_tabs') || (stash 'key'));
        <li class="dropdown <%== $is_selected ? q[ active] : '' %>" id="this_<%= $a %>">
            <a class="dropdown-toggle" style='float:right;z-index:10000' data-toggle="dropdown" href="#this_<%= $a %>">
                <b class="caret"></b></a>
            <ul class="dropdown-menu">
                % for my $t (tabs($a)) {
                <li>
                 %= link_to "$a/$t" => { key => "" } => begin
                 <%= $t %>
                 %= end
                </li>
                % }
            </ul>
        <%= link_to "$a/default" => { key => "" } => begin =%>
            <%= $a %>
        <%= end =%>
        </li>
    % next;
    % }
    <li <%== $a eq current_route() ? q[ class="active"] : '' %>>
        <%= link_to $a => begin =%>
            <%= $a =%>
        <%= end =%>
    </li>
% }

</ul>