MAIN sub: added example of argument short alias

unclechu · web-flow · commit 788ca954d263 · 2017-09-24T19:50:35.000+05:00
diff --git a/doc/Language/functions.pod6 b/doc/Language/functions.pod6
@@ -891,7 +891,7 @@ call L<exit|https://docs.perl6.org/routine/exit>.
 
     sub MAIN( Int :$length = 24,
                :file($data) where { .IO.f // die "file not found in $*CWD" } = 'file.dat',
-               Bool :$verbose )
+               Bool :v(:$verbose) #`( either --verbose or -v ) )
     {
         say $length if $length.defined;
         say $data   if $data.defined;

Original file line number	Diff line number	Diff line change
`@@ -891,7 +891,7 @@ call L<exit\|https://docs.perl6.org/routine/exit>.`
`891`	`891`
`892`	`892`	`sub MAIN( Int :$length = 24,`
`893`	`893`	`:file($data) where { .IO.f // die "file not found in $*CWD" } = 'file.dat',`
`894`		`- Bool :$verbose )`
	`894`	+ Bool :v(:$verbose) #`( either --verbose or -v ) )
`895`	`895`	`{`
`896`	`896`	`say $length if $length.defined;`
`897`	`897`	`say $data if $data.defined;`