aboutsummaryrefslogtreecommitdiffhomepage
path: root/lexilla/test/examples/raku/x.p6
diff options
context:
space:
mode:
Diffstat (limited to 'lexilla/test/examples/raku/x.p6')
-rw-r--r--lexilla/test/examples/raku/x.p654
1 files changed, 0 insertions, 54 deletions
diff --git a/lexilla/test/examples/raku/x.p6 b/lexilla/test/examples/raku/x.p6
deleted file mode 100644
index 0cbdb6a57..000000000
--- a/lexilla/test/examples/raku/x.p6
+++ /dev/null
@@ -1,54 +0,0 @@
-use v6;
-
-# Normal single line comment
-my Int $i = 0;
-my Rat $r = 3.142;
-my Str $s = "Hello, world! \$i == $i and \$r == $r";
-say $s;
-
-#`{{
-*** This is a multi-line comment ***
-}}
-
-my @array = #`[[ inline comment ]] <f fo foo food>;
-my %hash = ( AAA => 1, BBB => 2 );
-
-say q[This back\slash stays];
-say q[This back\\slash stays]; # Identical output
-say Q:q!Just a literal "\n" here!;
-
-=begin pod
-POD Documentation...
-=end pod
-
-say qq:to/END/;
-A multi-line
-string with interpolated vars: $i, $r
-END
-
-sub function {
- return q:to/END/;
-Here is
-some multi-line
-string
-END
-}
-
-my $func = &function;
-say $func();
-
-grammar Calculator {
- token TOP { <calc-op> }
- proto rule calc-op {*}
- rule calc-op:sym<add> { <num> '+' <num> }
- rule calc-op:sym<sub> { <num> '-' <num> }
- token num { \d+ }
-}
-
-class Calculations {
- method TOP ($/) { make $<calc-op>.made; }
- method calc-op:sym<add> ($/) { make [+] $<num>; }
- method calc-op:sym<sub> ($/) { make [-] $<num>; }
-}
-
-say Calculator.parse('2 + 3', actions => Calculations).made;