[namespace qualifiers] Austin++ for nqp syntax help.

Also add a stub for inscope, taken from partcl.
partcl · Aug 9, 2010 · 3d4dff5 · 3d4dff5
1 parent 7548f1a
commit 3d4dff5
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 4 deletions.
diff --git a/src/Partcl/commands/namespace.pm b/src/Partcl/commands/namespace.pm
@@ -137,7 +137,7 @@ my sub import(*@args) {
 }	
 
 my sub inscope(*@args) {
-    '';
+    eval(@args);
 }	
 
 my sub origin(*@args) {
@@ -152,7 +152,13 @@ my sub path(*@args) {
     '';
 }	
 
-my sub qualifiers(*@args) {
+my sub qualifiers($string) {
+    my $match := Regex::Cursor.parse(
+        $string, :rule(/$<foo>=(.*)\:\:+<-[:]>*$$/), :c(0)
+    );
+
+    return ~$match<foo> if $match;
+
     '';
 }	
 

diff --git a/t/cmd_namespace.t b/t/cmd_namespace.t
@@ -44,8 +44,8 @@ eval_is {namespace qualifiers string string} \
   {wrong # args: should be "namespace qualifiers string"} \
   {namespace qualifiers: too many args}
 
-is [namespace qualifiers ::a::b::c]   ::a::b   {namespace qualifiers: simple} {TODO NQPRX}
-is [namespace qualifiers :::a:::b::c] :::a:::b {namespace qualifiers: extra colons} {TODO NQPRX}
+is [namespace qualifiers ::a::b::c]   ::a::b   {namespace qualifiers: simple}
+is [namespace qualifiers :::a:::b::c] :::a:::b {namespace qualifiers: extra colons}
 
 
 eval_is {namespace tail} \