File Coverage

blib/lib/Sort/Sub/by_dmp.pm

Criterion	Covered	Total	%
statement	26	27	96.3
branch	4	8	50.0
condition			n/a
subroutine	7	8	87.5
pod	0	2	0.0
total	37	45	82.2

package Sort::Sub::by_dmp;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2019-12-15'; # DATE
our $DIST = 'Sort-Sub-by_dmp'; # DIST
our $VERSION = '0.002'; # VERSION

use 5.010001;
use strict;
use warnings;

use Data::Dmp;

sub meta {
    return {
        v => 1,
        summary => 'Sort data structures by comparing their dump (using Data::Dmp)',
    };
}

sub gen_sorter {
    my ($is_reverse, $is_ci) = @_;

    sub {
        no strict 'refs';

        my $caller = caller();
        my $a = @_ ? $_[0] : ${"$caller\::a"};
        my $b = @_ ? $_[1] : ${"$caller\::b"};

        my $cmp;

        # XXX cache

        my $dmp_a = dmp($a);
        my $dmp_b = dmp($b);

        $cmp = $is_ci ? lc($dmp_a) cmp lc($dmp_b) : $dmp_a cmp $dmp_b;
        $is_reverse ? -1*$cmp : $cmp;
    };
}

1;
# ABSTRACT: Sort data structures by comparing their dump (using Data::Dmp)

__END__