#!/usr/bin/perl
use strict;
use warnings;
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",
'value' => "Top 1",
'title' => "T1 Title",
'expand_re' => "",
'subs' =>
[
{
'value' => "Home",
'url' => "",
},
{
'value' => "About Me",
'title' => "About Myself",
'url' => "me/",
},
],
},
);
my $results = $nav_menu->render();
my $nav_menu_html = join("\n", @{$results->{'html'}});
print $nav_menu_html;