From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

DON'T

this release is usable but far from a definitive API. don't use in production

SYNOPSIS

use Text::Anagram qw< anagram >;
anagram { say } "bob";

FUTURE

add a callback to stop a branch of solution

use Text::Anagram qw< anagram >;
anagram "bob"
, stop => sub { length > 2 && /^ana/ }
, finally => sub { say }

also

* localize stuff to run anagrams in anagrams
* compare anything (not only char) ?

Fork me!

https://github.com/eiro/p5-text-anagram