aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--META6.json8
-rw-r--r--bin/run-for-pid2
-rw-r--r--lib/App/RunForPid.pm64
3 files changed, 8 insertions, 6 deletions
diff --git a/META6.json b/META6.json
index 571ac14..80798d5 100644
--- a/META6.json
+++ b/META6.json
@@ -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";
}