From f06f451a762b200fe5598327e3419f3b4bad2011 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Thu, 14 Oct 2010 14:06:23 +0200
Subject: use Scalar::Utils to check if self is blessed

---
 lib/Net/HTTP/Spore/Middleware.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/Net/HTTP/Spore')

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);
     }
 
-- 
cgit v1.2.3