package
fa_menu;
### OPEN SOURCE LICENSE - GNU AFFERO PUBLIC LICENSE Version 3.0 #######
#
# Net::FullAuto - Distributed Workload Automation Software
# Copyright © 2000-2024 Brian M. Kelly
#
# This program is free software: you can redistribute it and/or
# modify it under the terms of the GNU Affero General Public License
# as published by the Free Software Foundation, either version 3 of
# the License, or any later version.
#
# This program is distributed in the hope that it will be useful,
# but **WITHOUT ANY WARRANTY**; without even the implied warranty
# of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Affero General Public License for more details.
#
# You should have received a copy of the GNU Affero General Public
# License along with this program. If not, see:
#
#######################################################################
use
strict;
use
warnings;
#################################################################
## Do NOT alter code ABOVE this block.
#################################################################
## -------------------------------------------------------------
## ADD CUSTOM MENU BLOCKS HERE:
## -------------------------------------------------------------
our
%Menu_1
=(
Label
=>
'Menu_1'
,
Item_1
=> {
Text
=>
"HELLO WORLD TEST"
,
Result
=>
"&hello_world()"
,
},
Item_2
=> {
Text
=>
"HOWDY WORLD TEST"
,
Result
=>
"&howdy_world()"
,
},
Item_3
=> {
Text
=>
"Explore Figlet Fonts"
,
Result
=>
"&figlet_fonts()"
,
},
Item_4
=> {
Text
=>
"Menu Demo"
,
Result
=>
"&menu_demo()"
,
},
Select
=>
'One'
,
Banner
=>
"\n Choose a Task to Perform :\n\n"
);
our
$start_menu_ref
=\
%Menu_1
;
########### END OF MENUS ########################
## Important! The '1' at the Bottom is NEEDED!
1;