Skip to content

Provide type support when decoding JSON string#115

Merged
rurban merged 1 commit into
rurban:masterfrom
pali:master
Aug 19, 2018
Merged

Provide type support when decoding JSON string#115
rurban merged 1 commit into
rurban:masterfrom
pali:master

Conversation

@pali
Copy link
Copy Markdown
Contributor

@pali pali commented Aug 13, 2018

JSON decoder fills optional third argument of Cpanel::JSON::XS::decode_json function and optional second argument of ->decode method with original JSON types from input string.

Examples:

my $value = decode_json('false', 1, my $type);
# $value is 0 and $type is JSON_TYPE_BOOL

my $value = decode_json('0', 1, my $type);
# $value is 0 and $type is JSON_TYPE_INT

my $value = decode_json('"0"', 1, my $type);
# $value is 0 and $type is JSON_TYPE_STRING

my $struct = Cpanel::JSON::XS->new->decode('[null,1,1.1,"1",[0],true]', my $type);
# $struct is [undef, 1, 1.1, '1', [0], 1]
# $value is [JSON_TYPE_NULL, JSON_TYPE_INT, JSON_TYPE_FLOAT, JSON_TYPE_STRING, [JSON_TYPE_INT], JSON_TYPE_BOOL]

This allows users to correctly distinguish between booleans, integers, floats and strings in Perl language where perl interpreter can coerce between these types at any time.

@rurban
Copy link
Copy Markdown
Owner

rurban commented Aug 13, 2018

Can you also the missing JSON_TYPE_NULL pod? pod_coverage complains
Other than that looks good.

@rurban rurban self-assigned this Aug 13, 2018
@rurban rurban self-requested a review August 13, 2018 15:43
Copy link
Copy Markdown
Owner

@rurban rurban left a comment

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

JSON_TYPE_NULL missing pod

JSON decoder fills optional third argument of Cpanel::JSON::XS::decode_json
function and optional second argument of ->decode method with original JSON
types from input string.

Examples:

my $value = decode_json('false', 1, my $type);
 $value is 0 and $type is JSON_TYPE_BOOL

my $value = decode_json('0', 1, my $type);
 $value is 0 and $type is JSON_TYPE_INT

my $value = decode_json('"0"', 1, my $type);
 $value is 0 and $type is JSON_TYPE_STRING

my $struct = Cpanel::JSON::XS->new->decode('[null,1,1.1,"1",[0],true]', my $type);
 $struct is [undef, 1, 1.1, '1', [0], 1]
 $value is [JSON_TYPE_NULL, JSON_TYPE_INT, JSON_TYPE_FLOAT, JSON_TYPE_STRING, [JSON_TYPE_INT], JSON_TYPE_BOOL]

This allows users to correctly distinguish between booleans, integers,
floats and strings in Perl language where perl interpreter can coerce
between these types at any time.
@pali
Copy link
Copy Markdown
Contributor Author

pali commented Aug 13, 2018

Now I extended POD documentation.

@rurban
Copy link
Copy Markdown
Owner

rurban commented Aug 13, 2018

Great. But I cannot release this before my holidays, starting tommorow. I believe I'll have no wifi in the French Alps

@rurban
Copy link
Copy Markdown
Owner

rurban commented Aug 19, 2018

Released 4.05 without WiFi, only Phone hotspot. Thanks for the Glasgow talk!

@rurban rurban merged commit 2019473 into rurban:master Aug 19, 2018
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Projects

None yet

Development

Successfully merging this pull request may close these issues.

2 participants