#!/usr/bin/perl
# test_menu.pl

use strict;
use lib qw(.);
use Menu;

my $menu = Menu->new(
		title => "Testing menu",
		header => "Just testing...",
		comment => "Ok, this is where the comment section would normally go."
);

my %entries = (
	1 => { name => "Entry #1" },
	2 => { name => "Entry #2" },
	3 => { name => "Entry #3" },
	4 => { name => "Quit" }
);

$menu->set_choices(%entries);
$menu->print;