File Coverage

blib/lib/Sort/Sub/defhash_props.pm

Criterion	Covered	Total	%
statement	8	14	57.1
branch			n/a
condition			n/a
subroutine	3	7	42.8
pod	0	2	0.0
total	11	23	47.8

package Sort::Sub::defhash_props;

use 5.010001;
use strict;
use warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-01-10'; # DATE
our $DIST = 'Sort-SubBundle-DefHash'; # DIST
our $VERSION = '0.001'; # VERSION

sub meta {
    return {
        v => 1,
        summary => 'Sort DefHash properties and attributes',
        description => <<'MARKDOWN',

Known (standard) properties and attributes are put first, in order of mention in the spec.
Then unknown properties/attributes are sorted asciibetically.

MARKDOWN
    };
}

sub gen_sorter {
    require Sort::BySpec;

    my ($is_reverse, $is_ci) = @_;

    Sort::BySpec::cmp_by_spec(
        spec => [
            'v',

            'defhash_v',

            'name',
            qr/\Aname\./,

            'caption',
            qr/\Acaption\./,

            # not in spec, but very common
            'summary',
            qr/\Asummary\./,

            'description',
            qr/\Adescription\./,

            'tags',

            'default_lang',

            'x',
            qr/\Ax\./ => sub { $_[0] cmp $_[1] },

            qr// => sub { $_[0] cmp $_[1] },
        ],
        reverse => $is_reverse,
    );
}

1;
# ABSTRACT: Sort DefHash properties and attributes

__END__