diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-07-18 23:30:42 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-07-18 23:30:42 -0500 |
commit | 36275d579f10dbb9b9e7038fc4c6589d9b6d7283 (patch) | |
tree | 5242b3a8c77328c645654f16fd3b2e3f2e0bb902 | |
parent | b275579910d410e7f9ecff88cccdeb673191d332 (diff) | |
download | web-request-36275d579f10dbb9b9e7038fc4c6589d9b6d7283.tar.gz web-request-36275d579f10dbb9b9e7038fc4c6589d9b6d7283.zip |
make this a private method
-rw-r--r-- | lib/Web/Request.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/Web/Request.pm b/lib/Web/Request.pm index fd7e6fc..a152800 100644 --- a/lib/Web/Request.pm +++ b/lib/Web/Request.pm @@ -310,8 +310,8 @@ has uploads => ( for my $key (keys %$uploads) { my $val = $uploads->{$key}; $ret->{$key} = ref($val) eq 'ARRAY' - ? $self->new_upload($val->[-1]) - : $self->new_upload($val); + ? $self->_new_upload($val->[-1]) + : $self->_new_upload($val); } return $ret; @@ -331,8 +331,8 @@ has all_uploads => ( for my $key (keys %$uploads) { my $val = $uploads->{$key}; $ret->{$key} = ref($val) eq 'ARRAY' - ? [ map { $self->new_upload($_) } @$val ] - : [ $self->new_upload($val) ]; + ? [ map { $self->_new_upload($_) } @$val ] + : [ $self->_new_upload($val) ]; } return $ret; @@ -377,7 +377,7 @@ sub new_response { $self->response_class->new(@_); } -sub new_upload { +sub _new_upload { my $self = shift; Class::Load::load_class($self->upload_class); |