From d150505fcdf7776c9f47f941c3a299706a2b95d0 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Fri, 26 Nov 2010 15:37:14 +0100 Subject: need to rewrite this --- lib/Net/HTTP/Spore/Role/Middleware.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lib/Net/HTTP') diff --git a/lib/Net/HTTP/Spore/Role/Middleware.pm b/lib/Net/HTTP/Spore/Role/Middleware.pm index 60f4703..d1a97e2 100644 --- a/lib/Net/HTTP/Spore/Role/Middleware.pm +++ b/lib/Net/HTTP/Spore/Role/Middleware.pm @@ -24,7 +24,10 @@ sub _load_middleware { sub _complete_mw_name { my ($self, $mw) = @_; - if ($mw !~ /(?:^\+|Net\:\:HTTP\:\:Spore\:\:Middleware)/) { + if ($mw =~ /^\+/) { + $mw =~ s/^\+//; + } + elsif ($mw !~ /Net\:\:HTTP\:\:Spore\:\:Middleware/) { $mw = "Net::HTTP::Spore::Middleware::".$mw; } -- cgit 1.4.1