Make sub run/shell multi's

rakudo · Feb 27, 2018 · 4da2418 · 4da2418
1 parent c1d2a5b
commit 4da2418
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/core/Proc.pm b/src/core/Proc.pm
@@ -225,15 +225,17 @@ my class Proc {
     }
 }
 
-sub run(*@args where .so, :$in = '-', :$out = '-', :$err = '-',
+proto sub run(|) {*}
+multi sub run(*@args where .so, :$in = '-', :$out = '-', :$err = '-',
         Bool :$bin, Bool :$chomp = True, Bool :$merge,
         Str  :$enc, Str:D :$nl = "\n", :$cwd = $*CWD, :$env) {
     my $proc = Proc.new(:$in, :$out, :$err, :$bin, :$chomp, :$merge, :$enc, :$nl);
     $proc.spawn(@args, :$cwd, :$env);
     $proc
 }
 
-sub shell($cmd, :$in = '-', :$out = '-', :$err = '-',
+proto sub shell(|) {*}
+multi sub shell($cmd, :$in = '-', :$out = '-', :$err = '-',
         Bool :$bin, Bool :$chomp = True, Bool :$merge,
         Str  :$enc, Str:D :$nl = "\n", :$cwd = $*CWD, :$env) {
     my $proc = Proc.new(:$in, :$out, :$err, :$bin, :$chomp, :$merge, :$enc, :$nl);