Index: Spectre.pm
===================================================================
--- Spectre.pm	(revision 5846)
+++ Spectre.pm	(revision 5847)
@@ -17,6 +17,7 @@
 use Config::JSON;
 use POE::Component::IKC::ClientLite;
 use List::Util qw(sum max);
+use JSON qw(from_json);
 use WRE::Host;
 
 =head1 ISA
@@ -223,7 +224,7 @@
     undef $remote;
 
     # Finally, return the data in a Perl data structure.
-    return jsonToObj($result);
+    return from_json($result);
 }
 
 #-------------------------------------------------------------------
@@ -243,6 +244,7 @@
 =cut
 
 sub getWorkflowsPerSite {
+    my $self = shift;
     my $report = shift;
     my $workflowsPerSite = {};
 
@@ -281,6 +283,7 @@
 =cut
 
 sub getPriorities {
+    my $self = shift;
     my $report = shift;
     my $priorities = {};
     my $maxes = {};
@@ -301,5 +304,5 @@
     return $maxPriority;
 }
 
+1;
 
-1;