Help for this page

Select Code to Download


  1. or download this
    my @menu = (
    { -label => 'File',
...
   ]
}
  2. or download this
    my $menu = decode_json( path( $jsonfile )->slurp_raw );
my $funcname = $menu->{menu}[0]{"-submenu"}[0]{"-value"};
my $funcref = $callback{$funcname};
$menu->{menu}[0]{"-submenu"}[0]{"-value"} = $funcref;