blob: 8acadbe59ae976b25086530211fc4f274a970d87 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
# Copyright 2016 Yahoo Inc. Licensed under the terms of the Apache 2.0 license. See LICENSE in the project root.
#
# Minimal JSON wrapper.
#
# Intentions:
# - If needed, be able to switch the implementation of the JSON parser
# without components using this class seeing it.
# - Make API as simple as possible to use.
#
# Currently uses JSON.pm from ypan/perl-JSON
#
# Example usage:
#
# my $json = <<EOS;
# {
# 'foo' : [
# { 'key1' : 2 },
# { 'key2' : 5 }
# ]
# }
#
# my $result = Json::parse($json);
# my $firstkey = $result->{'foo'}->[0]->{'key1'}
# my @keys = @{ $result->{'foo'} };
#
# See JsonTest for more usage. Add tests there if unsure.
#
package Yahoo::Vespa::Json;
use strict;
use warnings;
# Location of JSON.pm is not in default search path on tested Yahoo nodes.
use lib ($ENV{'VESPA_HOME'} . '/lib64/perl5/site_perl/5.14/');
use JSON;
return 1;
# Parses a string with json data returning an object tree
sub parse { # (RawString) -> ObjTree
my ($raw) = @_;
my $json = decode_json($raw);
return $json;
}
# Encodes an object tree as returned from parse back to a raw string
sub encode { # (ObjTree) -> RawString
my ($json) = @_;
my $JSON = JSON->new->allow_nonref;
my $encoded = $JSON->pretty->encode($json);
return $encoded;
}
|
