On Thu, May 14, 2020 at 06:46:17PM -0700, ToddAndMargo via perl6-users wrote:
> On 2020-05-11 21:19, Peter Pentchev wrote:
> > #!/usr/bin/env raku
> >
> > use v6.d;
> >
> > use Getopt::Long;
> >
> > sub cmd_install($cmd, Array[Str] :$enablerepo = [], Bool :$y = False,
> > *@rest --> int)
> > {
> > say 'install';
> > dd $cmd;
> > dd @rest;
> > dd $enablerepo;
> > dd $y;
> > return 0;
> > }
> >
> > sub cmd_list($cmd, Array[Str] :$enablerepo = [], *@rest --> int)
> > {
> > say 'list';
> > dd $cmd;
> > dd @rest;
> > dd $enablerepo;
> > return 42;
> > }
> >
> > my %HANDLERS = (
> > install => &cmd_install,
> >
> > # "list" doesn't care about the "-y" parameter, so skip it
> > list => -> $cmd, :$enablerepo = [], :$y = False, *@rest --> int {
> > cmd_list $cmd, :$enablerepo, |@rest
> > },
> > );
> >
> > sub note-fatal(Str:D $msg)
> > {
> > $msg.note;
> > exit 1;
> > }
> >
> > {
> > my $opts = get-options(
> > "enablerepo=s@",
> > "y",
> > );
> > CATCH { when Getopt::Long::Exception { .message.note; exit 1 } };
> > dd $opts;
> >
> > note-fatal 'No command specified' unless $opts.elems;
> > my $cmd = $opts[0];
> > my $handler = %HANDLERS{$cmd};
> > note-fatal "Unknown command '$cmd'" unless $handler;
> > exit $handler(|$opts);
> > }
>
>
> How do I use it? Where are the options declared?What does https://modules.raku.org/dist/Getopt::Long:cpan:LEONT (the link you posted at the top of your first message) say in the "SYNOPSIS" section? G'luck, Peter -- Peter Pentchev r...@ringlet.net r...@debian.org p...@storpool.com PGP key: http://people.FreeBSD.org/~roam/roam.key.asc Key fingerprint 2EE7 A7A5 17FC 124C F115 C354 651E EFB0 2527 DF13
signature.asc
Description: PGP signature
