The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/pugs

use v6;
use Test;

=pod

The parser has difficulties with chained my statements.

  my $x = my $y = 0;
  No compatible subroutine found: &my
  App "&my" [] [Syn "=" [Var "$y",Val (VInt 0)]]

=cut

plan 1;

eval_ok('my $x = my $y = 0; 1', '"my $x = my $y = 0" parses', todo => 'bug');