File Coverage

blib/lib/String/Substitute.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	38	38	100.0

package String::Substitute;

our $VERSION = '0.005';

use Exporter::Easy (
    OK => [qw/get_all_substitutes/],
);
use Set::CrossProduct;
use List::Gather;
use Params::Validate qw(:all);
use strictures 2;

sub get_all_substitutes {
    my %params = validate(
        @_, {
            string => { type => SCALAR },
            substitutions => { type => HASHREF },
        }
    );

    my %subs = %{$params{substitutions}};

    my @character_sets = gather {
        my @chars = split //, $params{string};
        for my $char (@chars) {
            if (exists $subs{$char}) {
                take [ split(//, $subs{$char}) ];
            }
            else {
                take [ $char ];
            }
        }
    };

    my $exploded_results = Set::CrossProduct->new([@character_sets])->combinations;
    my @imploded_results = map { join '', @$_ } @$exploded_results;
    return @imploded_results;
}


1;

# ABSTRACT: generate strings using different combinations of subsitute characters

__END__