Merge pull request #35 from techman83/cleanup

Cleanup
KSP-CKAN · Sep 11, 2015 · 39e34a7 · 39e34a7
2 parents 0cb918a + 911b73d
commit 39e34a7
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 14 deletions.
diff --git 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 );

diff --git a/lib/App/KSP_CKAN/Roles/Logger.pm b/lib/App/KSP_CKAN/Roles/Logger.pm
@@ -32,11 +32,11 @@ my @methods = qw(
 );
 
 has _logger => (
-  is => 'ro',
-  isa => sub { 'Log::Log4perl::Logger' },
-  lazy => 1,
-  builder => 1,
-  handles => \@methods,
+  is        => 'ro',
+  isa       => sub { 'Log::Log4perl::Logger' },
+  lazy      => 1,
+  builder   => 1,
+  handles   => \@methods,
 );
 
 has _log_level  => ( is => 'ro', lazy => 1, builder => 1 );

diff --git a/lib/App/KSP_CKAN/Status.pm b/lib/App/KSP_CKAN/Status.pm
@@ -46,14 +46,14 @@ has '_data'         => ( is => 'ro', lazy => 1, builder => 1 );
 has '_json'         => ( is => 'ro', lazy => 1, builder => 1 );
 
 has 'status' => ( 
-  is => 'rw',
-  handles_via => 'Hash',
-  handles => {
-    get_val => 'get',
-    set_val => 'set',
-    all_keys => 'keys'
+  is            => 'rw',
+  handles_via   => 'Hash',
+  handles       => {
+    get_val   => 'get',
+    set_val   => 'set',
+    all_keys  => 'keys'
   },
-  default => sub { { } }, 
+  default       => sub { { } }, 
 );
 
 method _build__json {