Password generator: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,070: / Line 3,070: @@
 <lang perl6>
 subset MinimumPasswordLength of Int where * >= 4;
-subset PositiveInt of Int where * > 0;
+subset NumberOfPasswords of UInt where * != 0;
-sub MAIN( PositiveInt :c(:$count) = 0, MinimumPasswordLength :l(:$length) = 8, Str :x(:$exclude) = '' )
+sub MAIN( NumberOfPasswords:D :c(:$count), MinimumPasswordLength :l(:$length) = 8, Str :x(:$exclude) = '' )
 {
     .say for password-characters( char-groups( $exclude.comb ) )
@@ Line 3,105: / Line 3,105: @@
 <pre>
 Usage:
-  genpwd.raku [-c|--count=<PositiveInt>] [-l|--length=<MinimumPasswordLength>] [-x|--exclude=<Str>]
+  genpwd.raku [-c|--count=<NumberOfPasswords>] [-l|--length=<MinimumPasswordLength>] [-x|--exclude=<Str>]
 </pre>