File Coverage

blib/lib/Text/Anagram.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	31	32	96.8

package Text::Anagram;
use Exporter 'import';
use strict;
use warnings;
use 5.12.0;
our @EXPORT_OK = qw< anagram >;
our $VERSION   = '0.2';

# ABSTRACT: do something with every anagram of a text

=head1 DON'T

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

=head1 SYNOPSIS

    use Text::Anagram qw< anagram >;

    anagram { say } "bob";

=head1 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) ?

=head1 Fork me!

L

=cut

my $leaf_callback;

sub _anagram;
sub _anagram {
    my ( $from, $to) = @_;
    length $from or return map {$leaf_callback->()} $to;
    my %seen;
    $from =~ s{.}{ $seen{$&}++ or _anagram "$'$`","$&$to" }ge;
}

sub anagram (&$) {
    $leaf_callback = shift;
    my $seed = shift;
    _anagram $seed,'';
}

1;