#!/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;