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
        }
      }
    }
}