File Coverage

blib/lib/Math/Homogeneous.pm

Criterion	Covered	Total	%
statement	41	42	97.6
branch	8	12	66.6
condition			n/a
subroutine	11	11	100.0
pod	0	3	0.0
total	60	68	88.2

package Math::Homogeneous;

use strict;
use warnings;
use base 'Exporter';
use Clone qw/ clone /;
use overload
  '<>' => \&_get,
  fallback => 1;

our $VERSION = '0.03';

our @EXPORT = qw/ homogeneous /;
our @EXPORT_OK = qw/ homo /;

sub homogeneous {
  my $r = shift;
  my $array = ref $_[0] eq 'ARRAY' ? $_[0] : \@_;
  die if $r < 0;
  return [] if $r == 0;
  return [ map { [ $_ ] } @$array ] if $r == 1;
  my $homo = &homogeneous($r-1, $array);
  my $return = [];
  foreach my $h (@$homo) {
    for (@$array) {
      my $clone_h = clone $h;
      push @$clone_h, $_;
      push @$return, $clone_h;
    }
  }
  $return;
}

sub homo { homogeneous @_ }

sub new {
  my $class = shift;
  my $homo = homogeneous @_;
  my $iterator = {
    current  => 0,
    length   => scalar @$homo,
    iteratee => $homo,
  };
  bless($iterator, $class);
}

sub _next {
  my $self = shift;
  return undef unless $self->_has_next;
  $self->{iteratee}[$self->{current}++];
}

sub _has_next {
  my $self = shift;
  $self->{current} < $self->{length};
}

sub _get {
  my $self = shift;
  wantarray ? @{$self->{iteratee}} : $self->_next;
}

1;
__END__