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;

plan 1;

sub func(*@m)
{
    @m.shift;
    return @m;
}


# TEST
is_deeply(func(5), [], "Shift from an array function argument works", :todo<bug>);