File Coverage

blib/lib/List/EachCons.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	5	8	62.5
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	37	40	92.5

package List::EachCons;

use 5.010000;
use strict;
use warnings;
use base qw(Exporter);

our $VERSION = '0.01';

our %EXPORT_TAGS = ( 'all' => [ qw(
	each_cons
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
  each_cons
);

sub each_cons($\@&) {
  my ($count, $list, $code) = @_;
  return unless @$list >= $count;
  return unless $count > 0;
  my $ix = 0;
  my @current;
  push @current, $list->[$ix++] for 1 .. $count;
  my @result;
  while (1) {
    my $value = $code->(@current);
    push @result, $value if wantarray;
    last if $ix >= @$list;
    shift @current;
    push @current, $list->[$ix++];
  }
  @result;
}

1;

__END__