From: Tomas Doran <bobtfish@bobtfish.net>
Date: Tue, 9 Oct 2012 07:41:41 +0000 (+0100)
Subject: Rename methods to be shorter
X-Git-Tag: 5.90017~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=a2c6c7b9ce592929b361dbfc88f8f87332b17516

Rename methods to be shorter
---

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index b959d7c..2aa1de2 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -52,11 +52,11 @@ has request => (
     is => 'rw',
     default => sub {
         my $self = shift;
-        $self->request_class->new($self->_build_request_class_construction_parameters);
+        $self->request_class->new($self->_build_request_constructor_args);
     },
     lazy => 1,
 );
-sub _build_request_class_construction_parameters {
+sub _build_request_constructor_args {
     my $self = shift;
     my %p = ( _log => $self->log );
     $p{_uploadtmp} = $self->_uploadtmp if $self->_has_uploadtmp;
@@ -67,11 +67,11 @@ has response => (
     is => 'rw',
     default => sub {
         my $self = shift;
-        $self->response_class->new($self->_build_response_class_construction_parameters);
+        $self->response_class->new($self->_build_response_constructor_args);
     },
     lazy => 1,
 );
-sub _build_response_class_construction_parameters {
+sub _build_response_constructor_args {
     my $self = shift;
     { _log => $self->log };
 }