diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-09-02 10:56:33 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-09-02 10:56:33 -0400 |
commit | 8beb593f1baf365d09364f12032b8902b593e3d3 (patch) | |
tree | a119ea99827b14dae8ba92b803f511557eb5d504 | |
parent | 61fa7917ab15e46892211f712e554eaccf8857fb (diff) | |
download | web-request-8beb593f1baf365d09364f12032b8902b593e3d3.tar.gz web-request-8beb593f1baf365d09364f12032b8902b593e3d3.zip |
use Module::Runtime instead of Class::Load
-rw-r--r-- | lib/Web/Request.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Web/Request.pm b/lib/Web/Request.pm index 6b53b7c..ec7105f 100644 --- a/lib/Web/Request.pm +++ b/lib/Web/Request.pm @@ -2,11 +2,11 @@ package Web::Request; use Moose; # ABSTRACT: common request class for web frameworks -use Class::Load (); use Encode (); use HTTP::Body (); use HTTP::Headers (); use HTTP::Message::PSGI (); +use Module::Runtime (); use Stream::Buffered (); use URI (); use URI::Escape (); @@ -403,7 +403,7 @@ sub new_from_request { sub new_response { my $self = shift; - Class::Load::load_class($self->response_class); + Module::Runtime::use_package_optimistically($self->response_class); my $res = $self->response_class->new(@_); $res->_encoding_obj($self->_encoding_obj) if $self->has_encoding; @@ -413,7 +413,7 @@ sub new_response { sub _new_upload { my $self = shift; - Class::Load::load_class($self->upload_class); + Module::Runtime::use_package_optimistically($self->upload_class); $self->upload_class->new(@_); } |