The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use HTML::Menu::TreeView qw(:all);
my @tree = (
            {
             text    => 'News',
             columns => [' a ', ' b  jjjjj kkkkk llll iiiiiiiii', ' c ', ' d ', ' e '],
            },
            {
             text    => 'Folder',
             columns => [' a ', ' b  jjjjj kkkkk llll iiiiiiiii', ' c ', ' d ', ' e '],
             subtree => [
                         {
                          text => 'News',
                          columns =>
                            [' a ', ' b  jjjjj kkkkk llll iiiiiiiii', ' c ', ' d ', ' e '],
                         },
                         {
                          text    => 'Folder',
                          subtree => [
                                      {
                                       text    => 'Test',
                                       columns => [
                                                   ' a ', ' b  jjjjj kkkkk llll iiiiiiiii',
                                                   ' c ', ' d ', ' e '
                                                  ],
                                      },
                                     ],
                          columns =>
                            [' a ', ' b  jjjjj kkkkk llll iiiiiiiii', ' c ', ' d ', ' e '],
                         },
                         {
                          text => 'Test',
                          columns =>
                            [' a ', ' b  jjjjj kkkkk llll iiiiiiiii', ' c ', ' d ', ' e '],
                         },
                        ],
            },
            {
             text    => 'Test',
             columns => [' a ', ' b  jjjjj kkkkk llll iiiiiiiii', ' c ', ' d ', ' e '],
             subtree => [
                         {
                          text => 'Test',
                          columns =>
                            [' a ', ' b  jjjjj kkkkk llll iiiiiiiii', ' c ', ' d ', ' e '],
                         },
                        ],
            },
           );
my $TreeView = new HTML::Menu::TreeView();
$TreeView->columns("Column1", "Column2", "Column3", "Column4", "Column5");
use Test::More tests => 1;
ok($TreeView->columns == 5);
1;