diff options
| -rw-r--r-- | META6.json | 8 | ||||
| -rw-r--r-- | bin/run-for-pid | 2 | ||||
| -rw-r--r-- | lib/App/RunForPid.pm6 | 4 |
3 files changed, 8 insertions, 6 deletions
@@ -4,8 +4,10 @@ "Matias Linares" ], "build-depends" : [ ], - "depends" : [ ], - "description" : "blah blah blah", + "depends" : [ + "Term::Choose" + ], + "description" : "Given a X Window, attach a process for debug (gdb, tail, etc)", "license" : "Artistic-2.0", "name" : "App::RunForPid", "perl" : "6.c", @@ -13,7 +15,7 @@ "App::RunForPid" : "lib/App/RunForPid.pm6" }, "resources" : [ ], - "source-url" : "", + "source-url" : "deprecated.org:/var/www/cgit/App-RunForPid.git", "tags" : [ ], "test-depends" : [ ], "version" : "0.0.1" diff --git a/bin/run-for-pid b/bin/run-for-pid index 71745c6..de1c121 100644 --- a/bin/run-for-pid +++ b/bin/run-for-pid @@ -1,3 +1,3 @@ #!/usr/bin/env raku -use App::RunForPid; +use App::RunForPid :main; diff --git a/lib/App/RunForPid.pm6 b/lib/App/RunForPid.pm6 index 7d45941..dbaa5a8 100644 --- a/lib/App/RunForPid.pm6 +++ b/lib/App/RunForPid.pm6 @@ -43,7 +43,7 @@ sub list-file-descriptors($pid) { } #| Find a pid for a window -multi sub MAIN() is export { +multi sub MAIN() is export(:main) { my $ppid = get-pid; my @actions = <gdb fd stdout stderr stdout&stderr>; @@ -121,6 +121,6 @@ multi sub MAIN() is export { } #| Execute a command for a child process of $pid -multi sub MAIN(Int $pid) is export { +multi sub MAIN(Int $pid) is export(:main) { say "Running for $pid"; } |