slightly more consistent naming

mojolicious · Feb 10, 2016 · 76a10ae · 76a10ae
1 parent 175e3bf
commit 76a10ae
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/Mojo/Headers.pm b/lib/Mojo/Headers.pm
@@ -20,9 +20,9 @@ my %NORMALCASE = map { lc() => $_ } (
   qw(Upgrade User-Agent Vary WWW-Authenticate)
 );
 for my $header (keys %NORMALCASE) {
-  my $method = $header;
-  $method =~ y/-/_/;
-  monkey_patch __PACKAGE__, $method, sub {
+  my $name = $header;
+  $name =~ y/-/_/;
+  monkey_patch __PACKAGE__, $name, sub {
     my $self = shift;
     $self->{headers}{$header} = [@_] and return $self if @_;
     return undef unless my $headers = $self->{headers}{$header};