Particularly, no $@ clobber, non destructive substitution, the news octal escape, the faster shift.
These I'm more doubtful :
New given/when return, why is that? new package block, why not... don't know if it's really worth it.
Anyway kudos for all the great work.
Allows DRYer code. So something like this:
say do {
if ($grade eq 'A') { 'Well done!' }
elsif ($grade eq 'B') { 'Try harder!' }
elsif ($grade eq 'C') { 'You need help!!!' }
else { 'You are just making it up!' }
};
say do {
given ($grade) {
'Well done!' when 'A';
'Try harder!' when 'B';
'You need help!!!' when 'C';
default { 'You are just making it up!' }
}
}; say do { ($grade eq 'A') ? 'Well done!'
: ($grade eq 'B') ? 'Try harder!'
: ($grade eq 'C') ? 'You need help!!!'
: 'You are just making it up!'};
re: smart match & more complicated than `eq` - Yes you can push given/when quite a bit:
given (TheTime->of_day) {
when ('morning') {
breakfast();
make_packed_lunch() if $_->is_work_day;
}
lunch() when 'afternoon';
when ('evening') {
goto_pub() if $_->is_friday;
dinner();
}
default { say "Should be sleeping if its " . $_->{dt}->ymd }
}