Select Code to Download

Legal in perl5:

...
 my $foo = foo (1);           # C
 my $foo = foo      (    1    # D
           );

my $foo = $object->method (1)
                 ->method (2)
                 ->method (3);

my $foo = $object.method(1)
                 .method(2)
                 .method(3);

$ cat t.pl
use v6;
...
        statement end
        statement modifier
        statement modifier loop

cat t.pl
use v6;
...
 .say;
$ perl6 t.pl
C.new(x => -1)