Properly handle JSON booleans

- Fixes #5

Author: jsnell

json-to-multicsv.pl

@@ -226,7 +226,7 @@ sub grovel {
     if (defined $handler and $handler->{kind} eq 'ignore') {
         return;
     }
-    if (!defined $val or !ref $val) {
+    if (!defined $val or !ref $val or JSON::is_bool $val) {
         record $val;
     } elsif ('HASH' eq ref $val) {
         die "Don't know how to handle object at $path. Suggestions:\n --path $path:table:name\n --path $path:column\n --path $path:row\n --path $path:ignore\n" if !$handler;

test/basic/input.json

@@ -2,6 +2,7 @@
     "item 1": {
         "title": "The First Item",
         "genres": ["sci-fi", "adventure"],
+        "available": true,
         "rating": {
             "mean": 9.5,
             "votes": 190
@@ -20,6 +21,7 @@
     "item 2": {
         "title": "The Second Item",
         "genres": ["history", "economics"],
+        "available": false,
         "rating": {
             "mean": 7.4,
             "votes": 865

test/basic/output.expected/item.csv

@@ -1,3 +1,3 @@
-item._key,item.rating.mean,item.rating.votes,item.title
-"item 1",9.5,190,"The First Item"
-"item 2",7.4,865,"The Second Item"
+item._key,item.available,item.rating.mean,item.rating.votes,item.title
+"item 1",1,9.5,190,"The First Item"
+"item 2",0,7.4,865,"The Second Item"