diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/Net/HTTP/Spore/Middleware.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Net/HTTP/Spore/Middleware.pm b/lib/Net/HTTP/Spore/Middleware.pm index 2855a72..1b0d5d3 100644 --- a/lib/Net/HTTP/Spore/Middleware.pm +++ b/lib/Net/HTTP/Spore/Middleware.pm @@ -4,6 +4,7 @@ package Net::HTTP::Spore::Middleware; use strict; use warnings; +use Scalar::Util; sub new { my $class = shift; @@ -22,7 +23,7 @@ sub response_cb { sub wrap { my ($self, $cond, @args) = @_; - if (!ref $self) { + if (!Scalar::Util::blessed($self)) { $self = $self->new(@args); } |