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.