...but I think there's another one...

There is Hook::LexWrap:

use Hook::LexWrap;

wrap( $_,
      pre  => sub { print "$_ begin\n" },
      post => sub { print "$_ end\n"   },
    ) for @subs_to_wrap;
[download]

Updated example to be more inline with OP's requirements.