The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use HTML::Menu::TreeView qw(help);
my $TreeView = new HTML::Menu::TreeView();
my $hashref  = $TreeView->help();
use Test::More tests => 60;
foreach my $key (sort(keys %{$hashref})) {
    ok(length($hashref->{$key}) eq length($TreeView->help($key)));
}
$TreeView->language('de');
$hashref = $TreeView->help();
foreach my $key (sort(keys %{$hashref})) {
    ok(length($hashref->{$key}) eq length($TreeView->help($key)));
}
1;