Changeset 17089

Timestamp:

07/17/07 12:31:39 (2 years ago)

Author:

moritz

Message:

[STD] added the first perlhints POD blocks

Files:

• src/perl6/Perl-6.0.0-STD.pm (modified) (2 diffs)

src/perl6/Perl-6.0.0-STD.pm

@@ -337 +337 @@
 }
 
+=begin perlhints #{ #}
+token:  block_comment
+syn:    #{ <arbitrary text> }
+name:   block comment
+desc:   #{ starts a comment that is terminated by }. Inside the comment \
+        brackets may be nested.
+ex:     say 
+        #{ 
+        this is a comment
+        #} 
+        "something"; 
+=end perlhints
+
 token block_comment {
     ^^ '#' <?{ ($<start>,$<stop>) = $.peek_brackets() }>
@@ -392 +405 @@
     [ <lambda> <signature> ]? <block>
 }
+
+=begin perlhints ->
+token:  lambda
+syn:    -> <signature> { <statements> }
+name:   lambda
+desc:   -> introduces a (possibly empty) signature to a block
+ex:     for @list -> $a { say $a; }
+        my &function := -> { say 42; };
+=end perlhints
+
+=begin perlhints <->
+token:  lambda
+syn:    <-> <signature> { <statements> }
+name:   lambda rw
+desc:   <-> introduces a (possibly empty) signature to a block, applying the \
+        'is rw' trait on all arguments
+ex:     for @liste <-> $a { $a++ }
+=end perlhints
 
 token lambda { '->' | '<->' }