perl6 grammar ported

cdent-base.pgx

@@ -0,0 +1,49 @@
+%grammar cdent-base
+%version 0.0.1
+
+module:
+    <module_start>
+    <doc_comment>?
+    <comment>*
+    <include_runtime>?
+    <class>+ %%% <comment>*
+    <module_end>
+    <comment>*
+
+doc_comment:
+    <doc_comment_begin>
+    [ !<doc_comment_end> <doc_comment_line> ]*
+    <doc_comment_end>
+
+class:
+    <class_start>
+    <class_body>
+    <class_end>
+
+class_body:
+    <indent>
+    <method>+ %%% <comment>*
+    <undent>
+
+method:
+    <method_start>
+    <method_body>
+    <method_end>
+
+method_body:
+    <indent>
+    <statement>+ %%% <comment>*
+
+statement: [ <println> | <comment> ]
+
+comment: [ <line_comment> | <blank_line> ]
+
+line_comment: /<line_comment_start>(<line>)/
+
+line: /<ANY>*<EOL>/
+blank_line: /~<EOL>/
+
+module_start: //
+module_end: //
+
+id: /<WORD>+/

cdent.perl6.pgx

@@ -0,0 +1,21 @@
+%grammar cdent-perl6
+%extends cdent-base
+%version 0.0.1
+
+line_comment_start: /<HASH>/
+
+doc_comment_begin: /<HASH>{3}<BREAK>/
+doc_comment_line: /<HASH><SPACE>?(<ANY>*<BREAK>)/
+doc_comment_end: /<HASH>{3}<SPACE>/
+
+include_runtime: /use CDent;/
+
+class_start: /class<SPACE>~(<Id>)<WS>~<LCURLY><BREAK>/
+
+class_end: /<RCURLY><BREAK>/
+
+method_start: /method<SPACE>~(<Id>)<SPACE>~<LCURLY><BREAK>/
+
+method_end: /<RCURLY><BREAK>/
+
+println: /say<SPACE>~(<ANY>+)<SEMI><BREAK>/