pmichaud

$ cat Foo.pm
module Foo {
    multi sub infix:<abc> is export(:DEFAULT) { 1 }
}
$ cat test.pl
use Foo;
say 1 abc 2;
$ ./perl6 test.pl
No applicable candidates found to dispatch to for 'infix:abc'
current instr.: '_block52' pc 73 (EVAL_22:53)

pmichaud

$ cat Foo.pm
module Foo {
    multi sub infix:<±>($x, $y) is export(:DEFAULT) { 1 }
}
$ cat test.pl
use Foo;
say 1 ± 2;
$ ./perl6 test.pl
Statement not terminated properly at line 2, near "\x{b1} 2;\n"

pmichaud

$ cat Foo.pm
module Foo {
    multi sub infix:<±>($x, $y) is export(:DEFAULT) { 1 }
}

$ cat test.pl
use Foo;

say 2 ± 3;
$ ./perl6 test.pl

pmichaud

$ cat x.pir
.sub 'main'
    .param pmc args
    $S0 = args[1]
    say $S0
    $I0 = encoding $S0
    $S1 = encodingname $I0
    say $S1
    $I0 = length $S0
    say $I0

pmichaud

$ cat x.pir
.HLL 'xyz'

.sub 'main'
    $P0 = get_root_namespace ['parrot';'Integer']
    $P0 = get_class $P0
    $I0 = get_addr $P0
    say $I0

    $P0 = get_class ['Integer']

pmichaud

$ cat z1
Q:PIR {
    $I0 = 1
  loop:
    unless $I0 <= 5000 goto done
    $P0 = root_new ['parrot';'Integer']
    $P1 = root_new ['parrot';'Integer']
    $P2 = root_new ['parrot';'Integer']
    $P3 = root_new ['parrot';'Integer']
    inc $I0

pmichaud

Rakudo Perl follows a monthly release cycle, with each release code named
after a Perl Mongers group.  This release is named "Stockholm"; 
Stockholm Perl Mongers will be holding a Perl 6 hackathon on May 29 [3].
Perl 6 developer Carl Mäsak is a member of Stockholm Perl Mongers and
a main author of November [4], Druid [5], proto [6], and other
Perl 6-based packages.  Carl also contributes patches to Rakudo,
and has been stress-testing Rakudo over the past year, submitting
nearly 400 bug reports.

pmichaud

$ cat x
sub foo() { 
    say $x;
}

$ ./perl6 x
Symbol '$x' not predeclared in foo (x:2)
in Main (src/gen_setting.pm:3166)
$ 

pmichaud

Failed Test                               Stat Wstat Total Fail  List of Failed
-------------------------------------------------------------------------------
t/spec/S02-literals/sub-calls.rakudo                    20   12  3-8 10-11 13-
                                                                 16
t/spec/S06-signature/slurpy-and-interplat                6    2  5-6
t/spec/S09-subscript_slice/slice.rakudo      0    11    27    0  ??
t/spec/S12-methods/indirect_notation.raku               24   13  12-24
t/spec/S32-num/complex.rakudo                          140  138  3-140
t/spec/S32-num/log.rakudo                               29   13  17-29
t/spec/S32-num/roots.t                                  44   33  12-44

pmichaud

$ cat x
my $x = 1+0i;

Q:PIR {
    $P0 = find_lex '$x'
    $P0 = $P0.'Complex'()
};
$ ./perl6 x
invoke() not implemented in class 'NameSpace'
current instr.: '_block14' pc 109 (EVAL_20:58) (x:3)