summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2013-09-02 10:56:33 -0400
committerJesse Luehrs <doy@tozt.net>2013-09-02 10:56:33 -0400
commit8beb593f1baf365d09364f12032b8902b593e3d3 (patch)
treea119ea99827b14dae8ba92b803f511557eb5d504
parent61fa7917ab15e46892211f712e554eaccf8857fb (diff)
downloadweb-request-8beb593f1baf365d09364f12032b8902b593e3d3.tar.gz
web-request-8beb593f1baf365d09364f12032b8902b593e3d3.zip
use Module::Runtime instead of Class::Load
-rw-r--r--lib/Web/Request.pm6
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(@_);
}