Remove explicit JSON dependency in favor of ordered preference list. (#374)

Addresses #372

Signed-off-by: Henry Cox <[email protected]>

Author: henry2cox

scripts/criteria

@@ -42,7 +42,11 @@ use FindBin;
 use Getopt::Long;
 use lib "$FindBin::RealBin";
 use criteria qw(new);
-use JSON;
+
+use lib "$FindBin::RealBin/../lib";
+use lib "$FindBin::RealBin/../../../lib";    # path from 'support-scripts'
+
+use lcovutil;
 
 my $obj = criteria->new($0, @ARGV);
 
@@ -54,7 +58,7 @@ if (!defined($obj) ||
     return undef;
 }
 my $json = pop(@ARGV);
-my $db   = decode_json($json);
+my $db   = JsonSupport::decode($json);
 
 my ($status, $msgs) = $obj->check_criteria(@ARGV, $db);
 foreach my $m (@$msgs) {

scripts/criteria.pm

@@ -39,7 +39,6 @@
 package criteria;
 
 use strict;
-use JSON;
 use Getopt::Long qw(GetOptionsFromArray);
 
 our @ISA       = qw(Exporter);

scripts/threshold.pm

@@ -48,7 +48,6 @@
 package threshold;
 
 use strict;
-use JSON;
 use Getopt::Long qw(GetOptionsFromArray);
 use Scalar::Util qw/looks_like_number/;