Add (cheap) Parameter.usage-name

Inspired by PR #720 by kalkin++
rakudo · Mar 4, 2016 · 676ad66 · 676ad66
1 parent 855de77
commit 676ad66
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/core/Parameter.pm b/src/core/Parameter.pm
@@ -47,6 +47,11 @@ my class Parameter { # declared in BOOTSTRAP
     method name() {
         nqp::isnull_s($!variable_name) ?? Nil !! $!variable_name
     }
+    method usage-name() {
+        nqp::iseq_i(nqp::index('@$%&',nqp::substr($!variable_name,0,1)),-1)
+          ?? $!variable_name
+          !! nqp::substr($!variable_name,1)
+    }
 
     method sigil() {
         nqp::bitand_i($!flags,$SIG_ELEM_IS_CAPTURE)