.\" -*- mode: troff; coding: utf-8 -*- .\" Automatically generated by Pod::Man 5.01 (Pod::Simple 3.43) .\" .\" Standard preamble: .\" ======================================================================== .de Sp \" Vertical space (when we can't use .PP) .if t .sp .5v .if n .sp .. .de Vb \" Begin verbatim text .ft CW .nf .ne \\$1 .. .de Ve \" End verbatim text .ft R .fi .. .\" \*(C` and \*(C' are quotes in nroff, nothing in troff, for use with C<>. .ie n \{\ . ds C` "" . ds C' "" 'br\} .el\{\ . ds C` . ds C' 'br\} .\" .\" Escape single quotes in literal strings from groff's Unicode transform. .ie \n(.g .ds Aq \(aq .el .ds Aq ' .\" .\" If the F register is >0, we'll generate index entries on stderr for .\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index .\" entries marked with X<> in POD. Of course, you'll have to process the .\" output yourself in some meaningful fashion. .\" .\" Avoid warning from groff about undefined register 'F'. .de IX .. .nr rF 0 .if \n(.g .if rF .nr rF 1 .if (\n(rF:(\n(.g==0)) \{\ . if \nF \{\ . de IX . tm Index:\\$1\t\\n%\t"\\$2" .. . if !\nF==2 \{\ . nr % 0 . nr F 2 . \} . \} .\} .rr rF .\" ======================================================================== .\" .IX Title "Mojo::JSON 3pm" .TH Mojo::JSON 3pm 2024-05-15 "perl v5.38.2" "User Contributed Perl Documentation" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l .nh .SH NAME Mojo::JSON \- Minimalistic JSON .SH SYNOPSIS .IX Header "SYNOPSIS" .Vb 1 \& use Mojo::JSON qw(decode_json encode_json); \& \& my $bytes = encode_json {foo => [1, 2], bar => \*(Aqhello!\*(Aq, baz => \e1}; \& my $hash = decode_json $bytes; .Ve .SH DESCRIPTION .IX Header "DESCRIPTION" Mojo::JSON is a minimalistic and possibly the fastest pure-Perl implementation of RFC 8259 . .PP It supports normal Perl data types like scalar, array reference, hash reference and will try to call the \f(CW\*(C`TO_JSON\*(C'\fR method on blessed references, or stringify them if it doesn't exist. Differentiating between strings and numbers in Perl is hard, depending on how it has been used, a scalar can be both at the same time. The string value has a higher precedence unless both representations are equivalent. .PP .Vb 2 \& [1, \-2, 3] \-> [1, \-2, 3] \& {"foo": "bar"} \-> {foo => \*(Aqbar\*(Aq} .Ve .PP Literal names will be translated to and from Mojo::JSON constants or a similar native Perl value. .PP .Vb 3 \& true \-> Mojo::JSON\->true \& false \-> Mojo::JSON\->false \& null \-> undef .Ve .PP In addition scalar references will be used to generate booleans, based on if their values are true or false. .PP .Vb 2 \& \e1 \-> true \& \e0 \-> false .Ve .PP The character \f(CW\*(C`/\*(C'\fR will always be escaped to prevent XSS attacks. .PP .Vb 1 \& "" \-> "<\e/script>" .Ve .PP For better performance the optional module Cpanel::JSON::XS (4.09+) will be used automatically if possible. This can also be disabled with the \f(CW\*(C`MOJO_NO_JSON_XS\*(C'\fR environment variable. .SH FUNCTIONS .IX Header "FUNCTIONS" Mojo::JSON implements the following functions, which can be imported individually. .SS decode_json .IX Subsection "decode_json" .Vb 1 \& my $value = decode_json $bytes; .Ve .PP Decode JSON to Perl value and die if decoding fails. .SS encode_json .IX Subsection "encode_json" .Vb 1 \& my $bytes = encode_json {i => \*(Aq♥ mojolicious\*(Aq}; .Ve .PP Encode Perl value to JSON. .SS false .IX Subsection "false" .Vb 1 \& my $false = false; .Ve .PP False value, used because Perl has no native equivalent. .SS from_json .IX Subsection "from_json" .Vb 1 \& my $value = from_json $chars; .Ve .PP Decode JSON text that is not \f(CW\*(C`UTF\-8\*(C'\fR encoded to Perl value and die if decoding fails. .SS j .IX Subsection "j" .Vb 3 \& my $bytes = j [1, 2, 3]; \& my $bytes = j {i => \*(Aq♥ mojolicious\*(Aq}; \& my $value = j $bytes; .Ve .PP Encode Perl data structure (which may only be an array reference or hash reference) or decode JSON, an \f(CW\*(C`undef\*(C'\fR return value indicates a bare \f(CW\*(C`null\*(C'\fR or that decoding failed. .SS to_json .IX Subsection "to_json" .Vb 1 \& my $chars = to_json {i => \*(Aq♥ mojolicious\*(Aq}; .Ve .PP Encode Perl value to JSON text without \f(CW\*(C`UTF\-8\*(C'\fR encoding it. .SS true .IX Subsection "true" .Vb 1 \& my $true = true; .Ve .PP True value, used because Perl has no native equivalent. .SH "SEE ALSO" .IX Header "SEE ALSO" Mojolicious, Mojolicious::Guides, .