File Coverage

lib/Hash/MostUtils/leach.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	8	8	100.0
condition	2	2	100.0
subroutine	5	5	100.0
pod			n/a
total	50	50	100.0

use strict;
use warnings;
package
	Hash::MostUtils::leach; # don't index me, please

use provide (
  if    => ge => 5.013 => 'Hash::MostUtils::leach::v5_13',
  else                 => 'Hash::MostUtils::leach::v5_10',
);

use Scalar::Util qw(refaddr);

{
  my %end;
  my %size;

  # n-ary each for lists
  sub _n_each {
    my $n = shift;
    my $data = shift;

    my $ident = refaddr($data);

    # does it look hashlike? cast to an array ref for indexing.
    $data = [ %$data ] if
      do { local $@; eval { scalar keys %$data; 1 } };

    # did the size change? if so, zero out our %end
    if (exists $size{$ident}) {
      if ($size{$ident} != $#{$data}) {
	$size{$ident} = $#{$data};
	$end{$ident} = 0;
      }
    } else {
      $size{$ident} = $#{$data};
    }

    if ($#{$data} < ($end{$ident} || 0)) {
      delete $end{$ident};
      return ();
    }

    $end{$ident} += $n;
    return @{$data}[$end{$ident} - $n .. $end{$ident} - 1];
  }
}

1;

__END__