my $original_proto = prototype("${package}::${sub_name}");
my $original_sub = \${"${package}::${sub_name}"};
*{"${package}::${sub_name}"} = eval qq{sub $original_proto { return \$original_sub->(\@_); } };