introduce next_step method to rspace

[scpubgit/DX.git] / lib / DX / ResolutionSpace.pm

package DX::ResolutionSpace;

use DX::Utils qw(step);
use DX::Class;

has proposition => (is => 'ro');

has geometry_depends_on => (is => 'ro', required => 1);

has members => (is => 'ro', required => 1);

sub next_resolution {
  my ($self) = @_;
  return undef unless my ($first) = @{$self->members};
  return $first->next_resolution;
}

sub remaining_resolution_space {
  my ($self) = @_;
  die "Sense makes not" unless my ($first, @rest) = @{$self->members};
  return $self->but(members => [ $first->remainder, @rest ]);
}

sub next_step {
  my ($self) = @_;
  return undef unless @{$self->members};
  return step(
    resolves => $self->proposition,
    resolution_space => $self,
  );
}

1;