On Fri, May 15, 2020 at 07:57:47AM +0300, Peter Pentchev wrote: > 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?
Oooookay, so that might have been something of a trick question, since it seems that synopsis does not have an example of the Capture-style invocation[1] :) You may have to actually read the "Simple options" section below to find out what get-options() returns :) G'luck, Peter [1] https://github.com/Leont/getopt-long6/pull/5 -- 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