From 911b73d3e44a233ca1e32dba51f93fd25ae1fdde Mon Sep 17 00:00:00 2001
From: Leon Wright <leon.wright@imdexlimited.com>
Date: Fri, 11 Sep 2015 16:11:18 +0800
Subject: [PATCH] use 'DOES' instead of reftype - closes #23

---
 lib/App/KSP_CKAN/NetKAN.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lib/App/KSP_CKAN/NetKAN.pm b/lib/App/KSP_CKAN/NetKAN.pm
index 650b534..c77649c 100644
--- a/lib/App/KSP_CKAN/NetKAN.pm
+++ b/lib/App/KSP_CKAN/NetKAN.pm
@@ -5,7 +5,6 @@ use strict;
 use warnings;
 use autodie;
 use Method::Signatures 20140224;
-use Scalar::Util::Reftype;
 use File::chdir;
 use Carp qw( croak );
 use App::KSP_CKAN::Status;
@@ -37,7 +36,7 @@ data and only run the inflater when required.
 =cut
 
 my $Ref = sub {
-  croak("auth isn't a 'App::KSP_CKAN::Tools::Config' object!") unless reftype( $_[0] )->class eq "App::KSP_CKAN::Tools::Config";
+  croak("auth isn't a 'App::KSP_CKAN::Tools::Config' object!") unless $_[0]->DOES("App::KSP_CKAN::Tools::Config");
 };
 
 has 'config'      => ( is => 'ro', required => 1, isa => $Ref );