Overload ne operator for JSON::PP::Boolean (#107)

to provide consistency with eq operator
currently:
. $true eq "true" evaluates to true
. $true ne "true" also evaluates to true
which is confusing

Author: tevfik1903

XS.pm

@@ -2224,6 +2224,10 @@ BEGIN {
         return $obj ? 1 == $op : 0 == $op;
       }
     },
+    'ne'     => sub {
+      my ($obj, $op) = ref ($_[0]) ? ($_[0], $_[1]) : ($_[1], $_[0]);
+      return !($obj eq $op);
+    },
     fallback => 1);
 }
 

t/03_types.t

@@ -1,4 +1,4 @@
-BEGIN { $| = 1; print "1..86\n"; }
+BEGIN { $| = 1; print "1..87\n"; }
 use utf8;
 use Cpanel::JSON::XS;
 
@@ -19,6 +19,7 @@ ok ($false == !$true);
 ok (Cpanel::JSON::XS::is_bool $false);
 ok ($false eq "0", "false: eq $false");
 ok ($true eq "true", "true: eq $true");
+ok (!($true ne "true"), "ne operator test for !(true: ne $true)");
 ok ("$false" eq "0",     "false: stringified $false eq 0");
 #ok ("$false" eq "false", "false: stringified $false eq false");
 #ok ("$true" eq "1",    "true: stringified $true eq 1");