view release on metacpan or  search on metacpan

htmlgen/FunctionalPerl/Htmlgen/Nav.pm  view on Meta::CPAN

                    cons($self->nav_bar->($entries, $item, $viewed_at_item),
                        &$rec($active, $rest, $item))
                } else {

                    # the lowest level of the navigation stack: if the
                    # current item ($upitem, should also be the
                    # $viewed_at_item) has subentries, then show that
                    # (immediate) level as the last one. XX: this
                    # would better be shown in a different way; use
                    # (CSS based) mouse over submenu popups
                    # (advantage: show them on ~all the other items,
                    # too)?
                    if (is_pair(my $es = $upitem->subentries)) {
                        equal($upitem, $viewed_at_item) or die "bug?";

                        # hack: passing $upitem as the item here (*no*
                        # item should be marked as selected, this
                        # fulfills the purpose)
                        cons($self->nav_bar->($es, $upitem, $viewed_at_item),
                            null)