Yo-An Lin (林佑安) > MFor-0.052 > MFor

Download:
MFor-0.052.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  1
Open  0
View/Report Bugs
Module Version: 0.052   Source  

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.

syntax highlighting: