Yet Another CPAN Grep

DBIx-Class-TopoSort ( R/RK/RKINYON/DBIx-Class-TopoSort-0.060000.tar.gz, RKINYON, 2019; MetaCPAN )

DBIx-Class-TopoSort/lib/DBIx/Class/TopoSort.pm ( view source; MetaCPAN )


use Graph;

# Even though JSON::MaybeXS is recommended, DBIx::Class already uses JSON::Any,
# so we can depend on it existing in the world.
# Note: We cannot use JSON::DWIW because it does not pr

sh is encoded the same way
# every time. Otherwise, preserve the order provided.
use JSON::Any qw(CPANEL XS JSON PP);
use Memoize qw(memoize unmemoize);
use Scalar::Util qw(reftype);

my $MEMOIZ

sult in different outputs.
        my %opts = @_;
        if (%opts) {
            push @keys, JSON::Any->new->canonical(1)->encode(\%opts);
        }

        return join ':', @keys;
    };