https://metacpan.org/source/ISHIGAKI/JSON-4.02/lib/JSON/backportPP.pm

  

 $keysort = $canonical ? sub { $a cmp $b } : undef;
 
        if ($self->{sort_by}) {
            $keysort = ref($self->{sort_by}) eq 'CODE' ? $self->{sort_
+by}
                     : $self->{sort_by} =~ /\D+/       ? $self->{sort_
+by}
                     : sub { $a cmp $b };
        }
 
        

 
sub sort_by {
    $_[0]->{sort_by} = defined $_[1] ? $_[1] : 1;
    $_[0];
}
[download]

7

[href://]]