File Coverage

blib/lib/SortExample/Letter/ByScrabbleScore.pm

Criterion	Covered	Total	%
statement	3	6	50.0
branch			n/a
condition			n/a
subroutine	1	3	33.3
pod	0	2	0.0
total	4	11	36.3

package SortExample::Letter::ByScrabbleScore;

use strict;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2025-01-12'; # DATE
our $DIST = 'SortExample-Letter-ByScrabbleScore'; # DIST
our $VERSION = '0.001'; # VERSION

sub meta {
    +{
        v => 1,
        args => {},
    };
}

sub get_example {
    my %args = @_;

    [
        qw/Q Z/,                 # 10
        qw/J X/,                 #  8
        qw/K/,                   #  5
        qw/F H V W Y/,           #  4
        qw/B C M P/,             #  3
        qw/D G/,                 #  2
        qw/A E I L N O R S T U/, #  1
    ];
}

1;
# ABSTRACT: Ordered list of letters by highest score in Scrabble

__END__