Help language development. Donate to The Perl Foundation

JSON::Pretty::Sorted cpan:HOLLI last updated on 2020-01-17

NAME

JSON::Pretty::Sorted - JSON::Pretty, but with the ability to sort keys and data

SYNOPSIS

```perl6 use JSON::Pretty::Sorted;

# For brevity
sub no-ws( $v ) { $v.subst( /\s/, '', :g ) }

my %data = :c(1), :a(3), :b(2);

# sort by key, '{"a":3,"b":2,"c":1}'
say no-ws to-json %data, sorter => { $^a.key cmp $^b.key };

# sort by value, '{"a":3,"b":2,"c":1}'
say no-ws to-json %data, sorter => { $^b.value cmp $^a.value }

my %data = foo => [ 1, 2, 3 ], bar => [5, 6, 4], baz => [ 3.1, 8.1, 1.1 ];

# '{"bar":[6,5,4],"baz":[3.1,8.1,1.1],"foo":[3,2,1]}'
say no-ws to-json %data,
    sorter => {
            $^a.isa( Pair ) ?? $^a.key cmp $^b.key !!
            $^a.isa( Int )  ?? $^b <=> $^a         !!
            Same;
    };

# Same as above
multi sub sorter( Pair $a, Pair $b ) { $a.key cmp $b.key }
multi sub sorter( Int $a, Int $b )   { $b <=> $a }
multi sub sorter( $a, $b )           { Same }

say no-ws to-json( %data, :&sorter );

```

DESCRIPTION

JSON::Pretty::Sorted is the same as JSON::Pretty, but with the ability to sort the JSON output.

AUTHOR

holli-holzer ([email protected])

COPYRIGHT AND LICENSE

This library is free software; you can redistribute it and/or modify it under the GPL-3 License.