File Coverage

blib/lib/List/MapList.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	31	31	100.0

use strict;
use warnings;
package List::MapList;
{
  $List::MapList::VERSION = '1.123';
}
# ABSTRACT: map lists through a list of subs, not just one

use Exporter 5.57 'import';
our @EXPORT = qw(mapcycle maplist); ## no critic


sub maplist {
	my ($subs, $current) = (shift, 0);
	my $code = sub { $subs->[$current++] || sub { () }; };
	map { $code->()->() } @_;
}


sub mapcycle {
	my ($subs, $current) = (shift, 0);
	my $code = sub { $subs->[$current++ % @$subs]; };
	map { $code->()->() } @_;
}

1;

__END__