view release on metacpan or  search on metacpan

example/mfor.pl  view on Meta::CPAN

#!/usr/bin/perl
use warnings;
use utf8;


=pod
  mfor [[  ] , [ ] ]  { code expression };
=cut
=pod
sub mfor(&@);
sub mfor(&@) {
  my $c_r = shift;
  my $arrs = shift;

  my $arr_lev = shift if ( @_ );
  $arr_lev ||= 0;

  print '    ' x $arr_lev , 'lev:' , $arr_lev;
  print ' size:' , scalar @$arrs , "\n";

  my $arr_size = scalar(@$arrs);

lib/MFor.pm  view on Meta::CPAN

package MFor;
use strict;
use warnings;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(&mfor);
our $VERSION = '0.052';

sub mfor(&@);

sub mfor(&@) {
    my $cr = shift;
    my $h_arrs;

    if ( ref( $_[0] ) eq 'ARRAY' and ref( $_[1] ) eq 'ARRAY' ) {
        $h_arrs = shift;    # array
    }

    my $arrs = shift;

    my ( $arr_lev, $arr_idx );