6 has _state => (is => 'ro', required => 1, init_arg => 'state');
9 grep $_[0]->_state->scope_var($_)->is_bound,
10 sort keys %{$_[0]->_state->scope};
15 my $state = $self->_state;
16 my $actions = $state->actions;
17 my @act = @{$actions}{sort keys %$actions};
18 return @act; # separate array to get correct scalar context return
21 sub independent_actions {
23 return grep !@{$_->dependencies}, $self->actions;
26 sub expand_action_dependencies {
27 my ($self, $action) = @_;
28 my $by_id = $self->_state->by_id;
29 return map $by_id->{$_}->action, @{$action->dependencies};
33 my ($self, $name) = @_;
34 my $state = $self->_state;
35 $state->resolve_value($state->scope_var($name));
40 return +{ map +($_ => $self->value_for($_)), $self->var_names };