File Coverage

lib/Hash/MostUtils/leach.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	5	5	100.0
pod			n/a
total	38	38	100.0

use strict;
use warnings;
package Hash::MostUtils::leach;

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

use Scalar::Util qw(refaddr);

{
  my %end;

  # 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 } };

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

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

1;

__END__