lib/DX/ShellState.pm

   1 package DX::ShellState;
   2
   3 use DX::Utils qw(deparse);
   4 use DX::Class;
   5
   6 has template_query_state => (
   7   is => 'ro', required => 1, isa => QueryState
   8 );
   9
  10 has current_query_state => (
  11   is => 'lazy', builder => 'new_query_state'
  12 );
  13
  14 has trace_these => (
  15   is => 'ro', required => 1,
  16 );
  17
  18 has mode => (is => 'ro', required => 1);
  19
  20 sub new_query_state { $_[0]->template_query_state }
  21
  22 sub trace_sub {
  23   my ($self) = @_;
  24   sub {
  25     my ($tag, $thing) = @_;
  26     my ($part) = split /\./, $tag;
  27     return unless $self->trace_these->{$part};
  28     my $dp = deparse($thing);
  29     $dp =~ s/\n$//;
  30     warn "${dp}\n";
  31   }
  32 }
  33
  34 sub with_trace_changes {
  35   my ($self, @changes) = @_;
  36   my %trace = %{$self->trace_these};
  37   foreach my $change (@changes) {
  38     if ($change =~ /^\+?(\w+)/) {
  39       $trace{$1} = 1;
  40     } elsif ($change =~ /^-(\w+)/) {
  41       delete $trace{$1};
  42     }
  43   }
  44   return $self->but(trace_these => \%trace);
  45 }
  46
  47 sub with_new_query_state {
  48   my ($self) = @_;
  49   $self->but(
  50     current_query_state => $self->new_query_state
  51   );
  52 }
  53
  54 sub with_mode {
  55   my ($self, $new_mode) = @_;
  56   return (
  57     $self->but(mode => $new_mode),
  58     [ mode => $new_mode ],
  59   );
  60 }
  61
  62 1;