has id_gen => (is => 'ro', default => sub { {} });
+has rule_set => (is => 'ro');
+
+has facts => (is => 'ro');
+
sub scope_var {
my ($self, $name) = @_;
$self->by_id->{$self->scope->{$name}};
sub assign_vars {
my ($self, %vars) = @_;
my %by_id = %{$self->by_id};
+ my $state = $self->but(id_gen => { %{$self->id_gen} });
foreach my $name (keys %vars) {
warn "assign: ${name}";
unless (blessed($vars{$name})) {
- my $var = $vars{$name} = $self->allocate_var($name, $vars{$name});
+ my $var = $vars{$name} = $state->allocate_var($name, $vars{$name});
$by_id{$var->id} = $var;
}
}
- $self->but(
+ $state->but(
by_id => \%by_id,
scope => { %{$self->scope}, map +($_ => $vars{$_}->id), keys %vars }
);