examples/ppt/yes.pl

   1 use v6;
   2
   3 my $VERSION = '0.1';
   4
   5 for @*ARGS {
   6     when <--version> { version() };
   7     when <--help>    { help() };
   8     when <-->        { shift @*ARGS; last };
   9 }
  10
  11 @*ARGS = <y> unless @*ARGS;
  12
  13 loop { say @*ARGS.join(" ") };
  14
  15 sub version {
  16     say "$*PROGRAM_NAME (Perl6 Power Tools) $VERSION";
  17     exit;
  18 }
  19
  20 sub help {
  21     #say qq:to/EOF/;
  22     $_ = "
  23     $*PROGRAM_NAME [OPTION] [STRING...]
  24
  25     Repeatedly print its arguments, or 'y'.
  26
  27     Options:
  28            --version:  Print version number, then exit.
  29            --help:     Print usage, then exit.
  30            --:         Stop parsing options.
  31     ";
  32     say;
  33     #EOF
  34     exit;
  35 }