/ 
Data-Enumerator-0.03
River stage zero No dependents
/ Data::Enumerator

NAME

Data::Enumerator - some iterator utilities for perl

SYNOPSIS

use Data::Enumerator qw/pattern generator/;

my $cases = generator(
    {   hoge  => pattern(qw/a b c/),
        fuga  => pattern(qw/x y z/),
        fixed => 0
    }
);

for my $case ( $cases->list ){
       print pp($case);
}

 # { hoge => 'a',fuga => 'x'}
 # { hoge => 'a',fuga => 'y'}
 # { hoge => 'a',fuga => 'z'}
 # { hoge => 'b',fuga => 'x'}
 # { hoge => 'b',fuga => 'y'}
 # { hoge => 'b',fuga => 'z'}
 # { hoge => 'c',fuga => 'x'}
 # { hoge => 'c',fuga => 'y'}
 # { hoge => 'c',fuga => 'z'}

DESCRIPTION

Data::Enumerator is utilities for iteration and test data generation like itertools in python or C# IEnumerable.

This module is marked EXPERIMENTAL. API could be changed without any notice.

pattern

to create an iterator by a provided list.

my $gen = pattern(qw/a b c/);
# $gen->list => ('a','b','c')

a generator can product another generator

my $gen = pattern(qw/a b c/)->product(pattern(qw/x y/));
# $gen->list
#  ["a", "x"],
#  ["a", "y"],
#  ["b", "x"],
#  ["b", "y"],
#  ["c", "x"],
#  ["c", "y"],

generator

to create all pattern of data structure which contains pattern.

my $users = generator({
    sex      => pattern(qw/male female/),
    age      => range(10,90,5),
    category => pattern(qw/elf human dwarf gnome lizardman/)
})

this code is a syntax sugar of the following code:

my $user = pattern(qw/male female/)
    ->product( range(10,90,5) )
    ->product( pattern(qw/elf human dwarf gnome lizardman/))
    ->select(sub{
        +{ sex => $_[0]->[0],age => $_[0]->[1],category => $_[0]->[2]}
    });

so you can enumerate all pattern of users.

$user->each(sub{
    my $user = shift;
    $ do stuff
});

AUTHOR

Daichi Hiroki <hirokidaichi {at} gmail.com>

SEE ALSO

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.