Make sure wrapped Routine.perl parses

sub+{wrapped} () {...} is not legal Perl 6 code