#!/usr/bin/perl -w
use lib qw(lib);
use HTML::Menu::TreeView qw(Tree css jscript preload);
use CGI qw(-compile :all -private_tempfiles);
use strict;
my @tree = (
{
onclick => "alert('onclick');",
text => 'onclick',
},
{
text => 'Html::Menu::TreeView',
target => '_parent',
subtree => [
{
text => 'Examples',
subtree => [
{
text => 'OO Syntax',
href => './oo.pl',
},
],
},
],
},
{
ondblclick => "alert('ondblclick');",
text => 'ondblclick',
title => 'ondblclick',
},
);
print(
header(),
start_html(
-title => 'Fo',
-script => jscript() . preload(),
-style => {-code => css()}
),
Tree(\@tree),
end_html
);