Help for this page

Select Code to Download


  1. or download this
    my $original_proto = prototype("${package}::${sub_name}");
my $original_sub = \${"${package}::${sub_name}"};
*{"${package}::${sub_name}"} = sub HOW_DO_I_GET_$original_proto_IN_HER
+E? { return $original_sub->(@_); };
  2. or download this
    my $original_proto = prototype("${package}::${sub_name}");
my $original_sub = \${"${package}::${sub_name}"};
*{"${package}::${sub_name}"} = eval qq{sub $original_proto { return \$
+original_sub->(\@_); } };