sub current_folder { my %c = context(); $c{'Current-Folder'} || croak("Couldn't find current folder"); }
OK, not so bad
But wait, what is context() doing?