The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

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