I got out of the hospital yesterday, and I was so happy I decided to write a
Perl6 poem. I tried something simple that looked like it's going to work, from Exegesis 2-6. Well, it doesn't run with perl6 that comes with parrot 0.0.13, so I guess I used unimplemented features or something, but I'll post the poem anyway, as a perl programmer's peep into the future...
my $body is closed;
my $feeling is good but uncertain;
let me := my $soul;
given $me {
'happy' when $operation but true;
'content' when $operation;
}
Update: fixed the 'when'. It was only here, not in my orig. code.