File Coverage

blib/lib/String/Substitute.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	35	35	100.0

package String::Substitute;

our $VERSION = '0.007';

use Exporter::Easy (
    OK => [qw/get_all_substitutes/],
);
use Set::CrossProduct;
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 = do {
        my @csets;
        my @chars = split //, $params{string};
        for my $char (@chars) {
            if (exists $subs{$char}) {
                push @csets, [ split(//, $subs{$char}) ];
            }
            else {
                push @csets, [ $char ];
            }
        }
        @csets
    };

    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__