package XYZ;
  sub MODIFY_CODE_ATTRIBUTES {
    my $sPackage = shift @_;
    my $crSub = shift @_;
    foreach my $sAttribute (@_) {
      if ($sAttribute eq 'MagicLogger') {
        my $sName = mythical_original_name_finder($crSub);
        *{$sName} = sub { 
            #fancy logging stuff before
            &$crSub(@_);
            #fancy logging stuff after
        }
      }
    }
}
##</code><code>##

SV = RV(0x819e84c) at 0x8171ed0
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,ROK)
  RV = 0x814f618
  SV = PVCV(0x818dd28) at 0x814f618
    REFCNT = 7
    FLAGS = ()
    IV = 0
    NV = 0
    COMP_STASH = 0x0
    ROOT = 0x0
    XSUB = 0x0
    XSUBANY = 0
    GVGV::GV = 0x0
    FILE = "(null)"
    DEPTH = 0
    FLAGS = 0x0
    OUTSIDE_SEQ = 231
    PADLIST = 0x819b9a0
    PADNAME = 0x819b9ac(0x0) PAD = 0x819b9b8(0x81a8eb0)
    OUTSIDE = 0x814ed54 (MAIN)