1 package DX::ShellState;
5 has template_query_state => (
6 is => 'ro', required => 1, isa => QueryState
9 has current_query_state => (
10 is => 'ro', predicate => 1, isa => QueryState
13 has mode => (is => 'ro', required => 1);
15 sub new_query_state { $_[0]->template_query_state }
17 sub with_new_query_state {
20 current_query_state => $self->new_query_state
25 my ($self, $new_mode) = @_;
27 $self->but(mode => $new_mode),
28 [ mode => $new_mode ],