... I think there's another one.

There's also Hook::WrapSub:

use Hook::WrapSub qw( wrap_subs );

wrap_subs(
  sub { print "before $Hook::WrapSub::name (@_)\n" },
  @subs_to_wrap,
  sub { print "after $Hook::WrapSub::name (@Hook::WrapSub::result)\n" 
+}
);
[download]