properly reflect capture/parcel binding in signature introspection

Closes RT #76116
rakudo · Jun 28, 2010 · 1734e43 · 1734e43
1 parent 2acfad3
commit 1734e43
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/Signature.pm b/src/core/Signature.pm
@@ -74,7 +74,9 @@ augment class Signature {
                 }
 
                 # Slurpiness, namedness, then the name.
-                if $param.slurpy { take '*' }
+                if $param.slurpy  { take '*' }
+                if $param.capture { take '|' }
+                if $param.parcel  { take '\|' }
                 my @names = @($param.named_names);
                 for @names -> $name {
                     take ':' ~ $name ~ '(';