improved monkey_patch to be able to name generated functions

mojolicious · Aug 30, 2014 · feade2e · feade2e · 29x10 · Jan 6, 2016
1 parent ed64d42
commit feade2e
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -1,5 +1,6 @@
 
 5.35  2014-08-30
+  - Improved monkey_patch to be able to name generated functions.
 
 5.34  2014-08-29
   - Added original_remote_address attribute to Mojo::Transaction.

diff --git a/lib/Mojo/Util.pm b/lib/Mojo/Util.pm
@@ -29,6 +29,9 @@ use constant {
   PC_INITIAL_N    => 128
 };
 
+# Will be shipping with Perl 5.22
+my $NAME = eval "use Sub::Util; 1" ? \&Sub::Util::set_subname : sub { $_[1] };
+
 # To update HTML entities run this command
 # perl examples/entities.pl > lib/Mojo/entities.txt
 my %ENTITIES;
@@ -130,7 +133,7 @@ sub monkey_patch {
   my ($class, %patch) = @_;
   no strict 'refs';
   no warnings 'redefine';
-  *{"${class}::$_"} = $patch{$_} for keys %patch;
+  *{"${class}::$_"} = $NAME->("${class}::$_", $patch{$_}) for keys %patch;
 }
 
 # Direct translation of RFC 3492