HTML::Widgets::NavMenu is a Perl module for Generating HTML Navigation Menus.

SYNOPSIS

use HTML::Widgets::NavMenu;

my $nav_menu =
HTML::Widgets::NavMenu->new(
path_info => "/me/",
current_host => "default",
hosts =>
{
default =>
{
base_url => "http://www.hello.com/"
},
},
tree_contents =>
{
host => "default",
text => "Top 1",
title => "T1 Title",
expand_re => "",
subs =>
[
{
text => "Home",
url => "",
},
{
text => "About Me",
title => "About Myself",
url => "me/",
},
],
},
);

my $results = $nav_menu->render();

my $nav_menu_html = join("n", @{$results->{html}});