From @moritz

17​:26 <@​moritz_> rakudo​: sub f(|$c) { }; say &f.signature.perl
17​:26 <+p6eval> rakudo 142433​: OUTPUT«​:(Any $c)␤»
17​:26 <@​jnthn> ...
17​:26 * moritz_ submits rakudobug
17​:27 <@​jnthn> .signature.perl appears not to know about |
17​:27 <@​moritz_> right
17​:27 <@​moritz_> so TODObug
17​:27 <@​jnthn> aye
17​:27 <@​jnthn> LHF :-)

From @kyleha

This is an automatically generated mail to inform you that tests are now available in t/spec/S06-signature/introspection.t

commit 623767c555b872abb1f56c29af06f62b01b24bd6
Author​: moritz <moritz@​c213334d-75ef-0310-aa23-eaa082d1ae64>
Date​: Mon Jun 28 20​:59​:33 2010 +0000

  [t/spec] tests for RT #​76116, parcel and capture binding in signature introspection
 
  git-svn-id​: http://svn.pugscode.org/pugs@&#8203;31491 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S06-signature/introspection.t b/t/spec/S06-signature/introspection.t
index bb2adf3..e7ff742 100644
--- a/t/spec/S06-signature/introspection.t
+++ b/t/spec/S06-signature/introspection.t
@@ -109,6 +109,16 @@ sub j(*@i) {
 
 }
 
+{
+    my $x;
+    ok :(|$x).params[0].capture, 'prefix | makes .capture true';
+    ok :(|$x).perl  ~~ / '|' /,  'prefix | appears in .perl output';
+
+    #?rakudo 2 skip 'parcel binding'
+    ok :(\|$x).params[0].parcel, 'prefix \| makes .parcel true';
+    ok :(\|$x).perl ~~ / '\|' /, 'prefix \| appears in .perl output';
+}
+
 # RT #69492
 {
     sub foo(:$) {};

The RT System itself - Status changed from 'new' to 'open'

From @moritz

Implemented, tests pass, everybody is happy!

@moritz - Status changed from 'open' to 'resolved'