File Coverage

blib/lib/App/Greple/wordle/util.pm

Criterion	Covered	Total	%
statement	11	16	68.7
branch	0	2	0.0
condition	0	3	0.0
subroutine	4	5	80.0
pod	0	1	0.0
total	15	27	55.5

use v5.14;
use warnings;

use Data::Dumper;

use Exporter 'import';
our @EXPORT_OK = qw(uniqword);

    state @re;
    my $len = length $_[0] or die;
    my $re = $re[$len] //=
	join('', '^(.)',
	     map {
		 sprintf "(%s.)", join '', map "(?!\\$_)", 1 .. $_;
	     } 1 .. $len - 1);
    grep /^$re/i, @_;
}

1;