NAME

MFor - A module for multi-dimension looping.

SYNOPSIS

use MFor;
mfor {
    my @args = @_;  # get a,x,1 in first loop
    print "Looping..  " , join(',',@_) , "\n";
}  [
     [ qw/a b c/ ],
     [ qw/x y z/ ],
     [ 1 .. 7 ],
];

or

MFor->it( 1 .. 7 )->it(  'a' ... 'z' )->do( sub {

    # do something 
    my @args = @_;


});

insteads of:

for my $a ( qw/a b c/ ) {
  for my $b ( qw/x y z/ ) {
    for my $c (  1 .. 7 ) {
      print "Looping..  " , join(',',$a,$b,$c) , "\n";
    }
  }
}

mfor

mfor {
    my @args = @_;  # get a,x,1 in first loop
    print "Looping..  " , join(',',@_) , "\n";
}  [
    [ qw/a b c/ ],
    [ qw/x y z/ ],
    [ 1 .. 7 ],
];

it

iterator with hash reference

    MFor->it({ L1 => qw|a b c| })->it({ L2 =>  qw|X Y Z| })
    ->do(sub {
		my $args = shift;

        print $args->{L1};
        print $args->{L2};


	});

conditon with iterator

MFor->it({ L1 => qw|a b c| })->when( qw|L1 eq 'a'|  )->do( sub {

    # only do something when L1 equal to 'a'
    my $args = shift;

})

DESCRIPTION

This module provides another way to do loop.

EXPORT

mfor

SEE ALSO

AUTHOR

Lin Yo-An, <cornelius.howl@gmail.com>

COPYRIGHT AND LICENSE

Copyright (C) 2009 by c9s

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.0 or, at your option, any later version of Perl 5 you may have available.