Source

p5-json-path / examples / eg1.pl

Diff from to

File examples/eg1.pl

 use Scalar::Util qw[blessed];
 
 my $object = to_jom(from_json(<<'JSON'));
-{ "store": {
-    "book": [ 
-      { "category": "reference",
-        "author": "Nigel Rees",
-        "title": "Sayings of the Century",
-        "price": 8.95
-      },
-      { "category": "fiction",
-        "author": "Evelyn Waugh",
-        "title": "Sword of Honour",
-        "price": 12.99
-      },
-      { "category": "fiction",
-        "author": "Herman Melville",
-        "title": "Moby Dick",
-        "isbn": "0-553-21311-3",
-        "price": 8.99
-      },
-      { "category": "fiction",
-        "author": "J. R. R. Tolkien",
-        "title": "The Lord of the Rings",
-        "isbn": "0-395-19395-8",
-        "price": 22.99
-      }
-    ],
-    "bicycle": {
-      "color": "red",
-      "price": 19.95
-    }
-  }
+{
+	"store": {
+		"book": [
+			{
+				"category": "reference",
+				"author":   "Nigel Rees",
+				"title":    "Sayings of the Century",
+				"price":    8.95
+			},
+			{
+				"category": "fiction",
+				"author":   "Evelyn Waugh",
+				"title":    "Sword of Honour",
+				"price":    12.99
+			},
+			{
+				"category": "fiction",
+				"author":   "Herman Melville",
+				"title":    "Moby Dick",
+				"isbn":     "0-553-21311-3",
+				"price":    8.99
+			},
+			{
+				"category": "fiction",
+				"author":   "J. R. R. Tolkien",
+				"title":    "The Lord of the Rings",
+				"isbn":     "0-395-19395-8",
+				"price":    22.99
+			}
+		],
+		"bicycle": {
+			"color": "red",
+			"price": 19.95
+		}
+	}
 }
 JSON
 
 	say to_json([$jpath->paths($object)], {pretty=>1});
 	say [$jpath->values($object)]->[0]->nodePath
 		if blessed([$jpath->values($object)]->[0]);
-	say '-' x 40; 
+	say '-' x 40;
 }